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MIC RD— SO is an international magazine devoted entirely to the Tandy TRS-80 microcomputer and the 
Dick Smith System 8Q/video Genie. It is available at the following prices (all prices shown in 
Aus.$ except For U.K. prices which are in pounds Sterling). 



12 months subscription 



Single Copy 



Months programs on cassette 



tat present available from Australia only) 

12 months subscription to magazine and cassette Aus 

K.I. 



Aus. $24.00 

NZ. $36.00 (Airmail) 

Hong Kong $46.00 (Airmail) 
U.K. 16.00 pounds 

Aus. $2.50 

N.Z. S3. 50 (Airmail) 

Hong Kong $4.25 (Airmail) 
U.K. 1.50 pounds 
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J.K. $4.75 (Airmail) 



$60.00 



$78.00 (Airmail! 

Hong Kong $88.00 (Airmail) 
U.K. $41.00 (Airmail) 

Special bulk purchase rates are also available to computer shops etc. Please use the form in this 
issue to order your copy or subscription. 

The purpose of MICRO-BO is to publish software and other information to help you get the most from 
your TRS-80, System 80 or Video Genie and their peripherals. M I CR 0—80 is in no way connected with 
either the Tandy or Dick Smith organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay royalties. An 
application form containing full details of how you can use your TRS-80 or System 80 to earn some 
extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one in Level II BASIC 

and one in DISK BASIC (or disk compatible Level II). We also publish Utility programs in Level II 

BASIC and Machine Language. At least every second issue has an article on hardware modifications 
or a constructional article for a useful peripheral. In addition, we run articles on programming 
technigues both in Assembly Language and BASIC and we print letters to the Editor and new product 
reviews. 

** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means that you must not copy 
it, except for your own use. This applies to photocopying the magazine itself or making copies of 
programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we do our utmost to 

ensure that they function as described. However, no liability can be accepted for the Failure of 

any program or other article to function satisfactorily or for any consequential damages arising 
from their use for any purpose whatsoever. 
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***** EDITORIAL ***** 

This issue of MICRO-80 is something of a landmark. Being issue No. 12, it marks the completion of 
MICRO-80's first year of publication. Beset as we are with the constant round of day-to-day 
activities and being acutely aware of our shortcomings, it is perhaps worth pausing for a moment to 
look back over the past 12 months and remember some of our achievements. 

We started with no previous experience in the publishing business but, as TRS-80 owners ourselves, 
believed that there was a need for a publication devoted to this new industry. So, we produced 
Issue 1 - containing programs written by the Editor and a number of friends and acquaintances 
around Adelaide. We placed a one-third page advertisement in Electronics Australia and sat back 
and waited. By the end of January, we had 155 subscribers. Our offer to pay a publication fee for 
readers' programs quickly bore fruit and programs started rolling in. At that time, there was no 
other magazine in Australia dedicated to micro-computers. The second came along in May, by which 
time we had launched MICRO-80 PRODUCTS with the objectives of publishing programs and books by 
Australian Authors and selling imported hardware and software at sensible (i.e. low) prices. One 
of the purposes of MICRO-80 PRODUCTS quite frankly, was to support the production costs of MICRO-80 
which was growing rapidly but still had a long way to go to break even. 

May was an eventful month. It saw the unveiling of our first hardware project, a memory expansion 
unit for the TRS-80 which enabled you to add up to 32K of memory in addition to 4K or 16K in the 
CPU. Unfortunately, the relatively low volume of demand and the high development costs associated 
with this product, caused us to shelve the project {but it is not entirely dead yet -look for some 
interesting announcements in future issues). 

May also saw us at our first Home Computer Show in Sydney. That 5how spawned one of what we 
consider our more significant achievements. There we met Barry Lawrence of Conquest Electronics in 
Katoomba. Barry was and is an authorised Tandy Dealer. He had only recently started selling 
TRS-80 's and sought our advice. As soon as we ascertained that he was free to set his own retail 
prices, we recommended that he should seriously consider discounting prices for Tandy equipment. 
This he did and many of our readers have taken advantage of his across-the-board 10% discount 
offer. Others have found that, if they go to a local authorised Tandy Dealer (not a Tandy 
Electroncis shop) waving their copy of MICRO-80 with Conquest Electronics' advertisement 
prominently displayed, they will usually get a 10* discount, too - (Hint - Conquest Electronics' 
prices include freight, why not try for a little more than 10% discount from your local dealer?) 
We believe tat we have been instrumental in saving readers several thousand dollars already and of 
that, we are proud, 

Still in May, we acquired one of the first System 80 's delivered in Australia. We quickly 
discovered a number of incompatibilities between it and the TRS-80 and, when we published the first 
detailed review in Australia (and the world?) of this computer, it was hard-hitting and spelled out 
the incompatibilities and deficiencies. It caused something of a furore in areas where sales 
budgets are king and we were accused of bias and of being uninformed. It is interesting to note 
that, by early next year, just about everything we criticised will have been remedied, i.e. there 
will be a volume control and VU meter on the cassette deck plus right-arrow and clear keys. The 
unusual 32 character mode has not yet been changed but at least the important things will have been 
done. We can only speculate as to whether MICRO-80 influenced these changes, or not. 

About the same time Electronics Today International, in reviewing MICRO-80, described us as being 
"proudly independent". That we are! It was as a result of some of the things we saw around us in 
the publishing business that we resolved that the best way to maintain that independence was to 
discourage advertising in MICRO-80. That policy is one which has been applauded by many of our 
readers and, despite the financial temptations, will remain. The exception will be for products 
and services which we believe to be of real value to our readers. 

MICRO-80 is a part-time occupation for all the editorial staff and, by mid-year, that was starting 
to show. Publication dates gradually slipped back until issues were a full month late. Our 
administration became rather overstrained and a few subscribers seemed to have enormous trouble in 
getting our administrative systems to recognise their continued existence! It is little 
compensation but it is interesting to note that this malady is fairly typical of the emerging 
microcomputing industry. The TRS-80 itself was several months behind schedule, the System 80 was 
12 months late and the S 100 expansion for it about 6 months late. Another Australian monthly 
magazine went from Issue 5 in September to Issue 6 in November. The big budget 80' Microcomputing 
from the USA seems to have problems in its subscription department if the sporadic delivering of 
our own copy is anything to go by. All this is caused by rapid growth and limited resources, 
coupled with technical problems and the fact that we are all still fairly low down on the 
learning-curve, the big companies included. Still, despite these problems, we continued to notch 
up a number of notable achievements. 

We published Eddy Paay's Level II ROM Reference Manual, a book which has proved of considerable 
value to many machine language programmers and 1s undoubtedly of world standard. We started work 
on an interface for the Olivetti ET-1Z1 typewriter and succeeded where two other bigger Australian 
organisations had failed. We tackled one of the other incompatibilities between the System 80 and 
the TRS-80 - its expansion bus. We wanted to run the Exatron Stringy Floppy from a System 80, so 
we developed the SYSPAND 80 which plugs on to the back of the System 80 and generates a Tandy bus 
as well as providing a Centronics printer port. Not only can SYSPAND 80 users run a Stringy 
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Floppy, they can also use the Tandy expansion interface, disk drives etc. etc. In more recent 
times, we took Tandy to task over the ridiculous price they charge for a lower case modification 
for the Model 1 and then set about developing our own, cheaper alternative. (This will be released 
shortly). A System 80 version is also nearing completion, so soon everyone will be able to enjoy 
proper lower case at sensible prices. 

Towards the end of September, Eddy Paay joined us as our first full-time member of staff (yes, all 
the above had been done at night and on weekends!) In October, we went to the Melbourne Computer 
Show and we also launched MICRO-80 in the UK. Despite a plethora of microcomputing magazines 
available on the newstands, the UK had no specialist magazine for TRS-80/Video Genie users. To our 
surprise, we had an enquiry from Holland and now MICRO-80 is on sale there, too. Don't be surprised 
if you see a few paragraphs in Dutch in future issues. It is Eddy Paay's native tongue and we 
would like to show our Dutch readers that they are welcome, too. 

We returned from the Melbourne Show to some problems. Publication dates for MICRO-80 were now a 
good seven weeks late and we were up to three weeks late on orders for MICRO-80 PRODUCTS. Our 
manual mailing list was on its last legs and our Software Editor resigned because his own business 
commitments had become too great. Eddy quickly got the MICRO-80 PRODUCTS situation under control 
then one of the nicer events of the year happened. Several Adelaide readers, observing our 
problems, off erred to help us out. We owe a vote of thanks to Jim Hayfield, who single-handedly 
got our mailing list onto computer, Charlie Bartlett who took over the task of Software Editing, 
despite a bout of ill -health now happily resolved, Michael Svensdotter who Edits Level I programs 
and Jon Edwards who designed the new cover for MICRO-80. 

Summng up, our first year has been one of immense activity and progress. We have published over 80 
full programs and numerous short routines, etc., 14 hardware articles, a series of six articles on 
Assembly Language programming, the first four articles in a series on programming in BASIC, answers 
to readers' letters, lots of hints, tips, news etc. etc. We have paid over $2000 in publication 
fees to authors of programs and articles and over $6000 in royalties for MICRO-80 PRODUCTS. 

As much as has been achieved, we are far from satisfied. MICRO-80 is still running late by about 
seven weeks. We plan to correct this over the next three issues so that you should receive your 
February MICRO-80 in the first half of that month. Thereafter, we will endeavour to publish 
MICRO-80 in the first week of each month. 

What about the next 12 months? We have acquired new premises in Adelaide at 433 Morphett Street 
which will become our new headquarters. As well as more space, we will have a shop in which to 
display and demonstrate our products, and offer the service which our customers deserve. We will 

continue to improve MICRO-80. Look for the inclusion of photographs of screen displays etc. in 
issues in the near future. We will shortly be releasing a considerable number of new programs by 
Australian authors and, of course, will continue to improve and broaden our range of hardware 
products. Next year promises to be even more exciting than last. We are now one year older and 
about 10 years wiser! We know that none of this would be possible without the support of you, our 
readers. For your support in our first year, we thank you. We guarantee we will work even harder 
to earn that support next year and in the future. 

** SEASONS GREETINGS ** 

This will be the last issue produced before Christmas so we at MICRO-80 would ike to take this 

opportunity to wish all our readers a very Merry Christmas and a happy New Year, In recognition of 

the fact that many of you are likely to have a little more time at the keyboard over the next few 

weeks than you usually do, we have made this a bumper issue for programs. One which we commend in 

particular, is called "A Xmas Card" by Gordon Hodgson, This program restores our faith in '80 

graphics! 

- 0000000000 - 

** PRICE CORRECTION ** 

The price for an Airmail Cassette subscription to the UK is incorrectly shown as $41.00 on the 

inside front cover. It should be 41.00 pounds Sterling. 

***** M oRE ABOUT THE TRS-80 POCKET COMPUTER ***** 
It has been pointed out to us that the TRS-80 Pocket Computer is actually made by SHARP and is also 
available through most SHARP Agencies. The main advantage is that these Agencies often discount 
equipment and selling prices as low as $168 have been reported. 

- 00000000000 - 
***** MARKET PLACE ***** 

Market place is available to any reader who has hardware to dispose of. An entry costs nothing - 
you pay MICRO-80 $5.00 or 55! commission, whichever is the greater - up to a maximum of $30, after 
the goods are sold. The commission is calculated on your advertised price. 

SYSTEM 80 L2/16K + Dick Smith monitor + Address/Mailing List amd Airmail Pilot programs. This 
equipment is only 3 weeks old and in perfect condition. Total list price of hardware and software 
$951,50, Will sell for ** $850.00 ** 
P, 5. Martin, 191 Stuart Street, Blakehurst NSW 2021 Phone: (02) 546 7090 

- 00000000000 - 
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G.T. BASIC - PART FOUR of a continuing series 
by Peter Hartley. 

Copyright (C) 1980 Peter Graham Hartley. 
All rights reserved. 

Before getting to grips with last month's homework, I must correct a small mistake that I made in 
the very first part of this series (and I thank the various individuals and users' groups for being 
quick to point this out). I was a little over-enthusiastic about the number of variables available 
in Level II, so to put the record straight there are;- 



(i) 


A to Z 


= 


26 


(ii) 


A0 to Z9 


- 26 * 10 ■ 


> 260 


(111) 


AA to ZZ 


- 26 * 26 « 


■ 676 



adding up to a grand total of 962 primary variables 

which isn't quite as many as I said, but still more than enough to stop us all from ever 



running out. 

HOMEWORK READY? 

Last month I set you all the problem of creating a single character Decimal to Hex converter, using 
only those functions that we have already discussed. The solution that I wanted would have looked 
very much like this... 

10 POKE 16553,255 

20 DATA OJ^.a^^^J.S^.A.B.C.D.E.F 

30 D = ??? 

40 FOR K = TO D 

50 READ AS 

60 NEXT 

70 PRINT A$ 

80 END 

We will be using this as our working base for the next couple of sessions, so it might be a good 
idea to type it in and then run it a few time using different values for D in line 30, For any 
number between and 15, you'll get the right answer. If you wanted to use this for a number 
larger than 15 though, you'll get a HOW? from Level I and an 0,D. ERROR from Level II - there just 
isn't enough data. 

It gets a bit tedious having to keep changing line 30 all the time, so right now seems a good time 
to examine the INPUT statement. Change line 30 to... 

30 INPUT D 




The INPUT statement is quite flexible and can also be used to get the computer to tell the operator 

what it is expecting. After all, the question mark is fine for us - we've just typed the program 

in and know what is going on, but when someone else comes to use the program there may be some 

confusion. 

Change line 30 to, . . 

30 INPUT "ENTER A NUMBER BETWEEN AND 15 ";0 
and, while we are about it, change line 70 to... 

70 PRINT "DECIMAL ";D ;" IS ";AS ;" IN HEXADECIMAL." 
and line 80 to. . . 

80 RESTORE 
and a new line 90. . . 

90 GOTO 30 

and you'll find that it is a great deal tidier. The INPUT statement is now doubling up as a PRINT 
statement but you must remember to include the semi -col on between the closing quotation marks and 
the first variable name. 
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"Did he say FIRST variable name?" 

Just to satisfy your curiousity, remembering that we can have more than one programin ol ' '80 at a 
time, try this. . . 

200 INPUT" TYPE IN THREE NUMBERS. .." ;A,B,C 
210 PRINT A, B, C 
220 GOTO 200 
LM=1 

Now RUN 200 and you will find that:- 

(i) if you press (ENTER) or (NEW LIME) after the first number, you'll get TWO QUESTION MARKS 
- telling you that there is still more to put in, just as you will if you press (ENTER) or 
(NEW LINE) after the second number. 

(ii) if you want, you can type in three numbers with a comma between the first and second 
and another comma between the second and third and only press (ENTER) or (NEW LINE) once. 

(iii) if you put even more numbers in, before pressing (ENTER) or (NEW LINE) the '80 will 
proceed to demonstrate its superior intellect with a suitably superior message. 

(iv) if you press (ENTER) or (NEW LINE) without first typing any number at all, the '80 
decides that you are in idiot and gives up. It simply goes away and uses the old values, 

(v) any combination of the above! 

O.K. Now DELETE 200-220 

Let's get to grips with the lack of DATA for coping with numbers greater than 15. The 
immediately obvious solution is to add more DATA, but I'm not going to allow anything so 
inefficient. Instead, you are just going to have to sit down and learn about (i) INTEGERS 
this month, and (ii) ARRAYS next month, which should leave you sufficiently befuddled to 
deserve to enjoy your Christmas. 

We'll do the INTEGERS bit first. As far as the '80 is concerned, an INTEGER is the WHOLE 

NUMBER NEAREST TO, AND NOT GREATER THAN, THE NUMBER YOU FIRST THOUGHT OFT As this may seem 

confusing, we'll get the '80 to be the Teacher, It is also a good excuse to add to your 

workload and teach you about RANDOM NUMBERS and simple CONDITIONAL JUMPS at the same time! 

try , , . 

200 RANDOM 

210 N = RND(100)-50 

220 N = N/10 

230 PRINT "WHAT IS THE INTEGER OF ";N, 

240 INPUT V 

250 M = INT(N) 

260 IF v = M THEN PRINT "THAT IS CORRECT" :G0T0 210 

270 PRINT "THE CORRECT ANSWER IS... ";M 

280 GOTO 210 

and RUN 200 (ENTER) or (NEW LINE) again... 

EXPLANATIONS 

Line 200 reinitializes the RANDOM NUMBER GENERATOR. This is useful in games to ensure that the 

computer doesn't do the same thing every time a program is loaded and run. 

Line 210 makes N a whole number picked at random between 1 and 100 take away 50, so the range is 

effectively from minus 49 to 50. 

Line 250 makes M equal to the INTEGER value of N, which was previously divided by 10 in line 220. 

Line 260 make the '80 compare your answer in V with its own answer in M. If they match, the rest of 

line 260 is executed; if they do not match line 270 follows... 

Just far the record, N = RND(l) would produce either a or a 1 for N, while N = RND(O) would 
produce an up-to-six-decimal-digit-number between and 1 . 

You'll soon discover that an INTEGER is the next lowest whole number except when the number is 
already a whole number in which case it is already an integer. 

We can use the INTEGER function to get the NEAREST whole number as well, by using a statement 

like. . . 

300 N = INT(A + .5) 

Next month we'll get stuck into ARRAYS and that will enable us to convert our miserable 
little DECIMAL/HEX converter into a full-blown piece of useful programming. 

- 0000000000 - 
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** DISK DRIVES - QUESTIONS AND ANSWERS ** 

We have had many questions from readers about disk drives and with so many different drives 
available, the picture certainly is confusing. This article is an attempt to explain the various 
terms used and provide answers to the most common questions asked. 

Q. What is a mini -floppy disk drive? 

A. It is a mass storage device which records Information onto a diskette of plastic material 
coated with a magnetic substance, similar in nature to magnetic tape. The diskette spins around 
its axis like a record on a turntable and the magnetic head is moved into contact with the surface. 
There is a pressure pad on the reverse side of the diskette which squeezes the diskette up against 
the head, information is recorded in concentric circles called tracks (unlike a record where the 
information is recorded in spiral grooves). The head is free to move radially over the disk and 
can be positioned very accurately and repeatedly over the same track. The first disk drives used 
rigid or hard disks. They were large and expensive and stored vast quantities of data (several 
megabytes or millions of bytes on one disk-pack). Then the so called floppy-disk drive was 
developed. It used an 8 inch diameter, flexible diskette which meant that mechanical requirements 
were much less stringent. It cost much less to produce and was much lighter and more portable than 
hard disk drives. The trade-off for these advantages are that it takes longer to store and 
retrieve information from floppy disk drives than from hard disk drives, floppies are less reliable 
and store much less information per disk. 

Subsequently, the Shugart Corporation in America developed a mini-floppy disk drive which is 
similar to the floppy drive, but uses even smaller diskettes - 5-1/4 inch, stores less data per 
diskette, storage and retrieval is slower than for a floppy but the price is very much less. It is 
the mini-floppy disk drive which has become the standard unit used with most microcomputers, 

q. How many tracks does a mini -floppy disk drive have? 

A. Two years ago, that was an easy question to answer. The original Shugart drives had 35 tracks 
and so did all the others. One of the major trends in mini -floppies has been towards more and more 
tracks on the same si2ed diskette, quaintly phrased as "higher track counts". Micropolis started 
the trend by producing a 77 track mini -floppy about 2 years ago. At the time, that was 
revolutionary because most 8 inch floppy drives had 77 tracks so the mini-floppy was rivalling the 
floppy at least as far as track-count was concerned. [Floppies still stored more information per 
track). The only problem with the 77 track mini -floppy drive is that it cannot read a diskette 
made on a 35 track drive and vice versa. Manufacturers found that they could use a bit more space 
on the diskette, however, and produced 40 track drives that were completely compatible with 35 
track drives but gave an extra 5/35 = 14 T ; data storage per diskette. A standard 40 track mini 
floppy can store approximately 100K bytes of information on one side of a 5-1/4 inch diskette. Now 
that they had proved that they could use more of the surface of the diskette for data storage, the 
next step was to produce an 80 track mini -floppy. This is a very recent development and the best 
known manufacturer of these drives is MPI who manufactures the 80 track B91 drive. Unfortunately, 
the 80 track drives are not compatible with 35, 40 or 77 track drives. 

Q. Do I need to buy special diskettes for these drives with different track counts? 

A. Hand-in-hand with the development of higher track count drives, the diskette manufacturers 
improved their diskettes. Within the last few months, most manufacturers have dropped 35 track 
diskettes completely and replaced them with 40 track diskettes. Bear in mind that a new diskette 
is completely smooth and unformatted and the tracks are positioned by the particular drive. The 
difference between a 35 track and a 40 track diskette then, is the radial distance over which the 
information is recorded. That means not only burnishing the surface over a greater area but also 
having a magnetic material which will perform at higher recording densities because the higher 
numbered tracks are closer to the centre of the disk. There is the same amount of data recorded on 
each track so the short, inner tracks, have higher recording densities (i.e. bits per inch) than 
the longer, outer tracks. 

There are also 77 track diskettes available. These have a usable surface area of the same size as 
a 35 track diskette but, because the tracks are narrower, they too need to use a magnetic medium 
which will perform at higher recording densities. 

0, Is there a difference in quality between the various diskettes? 

A, Decidedly so but, unfortunately, at least as far as the microcomputer user is concerned, the 
market has not yet had time to sort itself out and poor quality diskettes are often sold at premium 
prices. Nor is the difference in quality immediately obvious. Quite apart from the ability of the 
magnetic medium to perform its function satisfactorily, there is the question of abrasivity. Some 
of the poorer quality diskettes (like cheap cassettes) are highly abrasive. It could well cost 
$150 to have a disk drive head replaced, so this could be a real problem in the future for someone 
using poor quality diskettes. 
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Q, How do I tell which diskettes are good quality? 

A. That is difficult since, as we said above, price is not yet a good guide. At the top end, 
where price is noticeable, two manufacturers' products are outstanding. Scotch Brand has been 
accepted as the standard diskette against which all others are judged, in three countries of the 
world. DYSAN diskettes, which as yet are little known in Australia, were specially developed for 
service in mini -floppies where operating temperatures are generally higher than in floppy disk 
drives. By all accounts, DYSAN are very good diskettes and it is probably significant that 
Microsoft choose DVSAN diskettes for some of their programs which cannot be copied or "backed-up". 
There are, of course, many other reputable brands of diskettes including BASF, Verbatim, ODP and 
Nashua to name just a few. As a rule of thumb, be wary of "own-brand" diskettes. A supplier who 
sells diskettes under his own-brand name is trying to save money and is likely to be tempted by 
cheap, low-quality diskettes. Incidentally, we omitted to mention earlier, that the actual magnetic 
diskette is enclosed in a square black cover lined with a low friction material. The diskette 
cannot be removed from this cover and spins inside it. There is a window through which the head 
can contact the magnetic diskette and a cutout on one side which engages a microswitch in the disk 
drive. If this cutout is covered with a piece of tape then the microswitch senses its presence and 
refuses to allow the disk drive to record (write) on that disk, which is said to be 
write-protected. There is also a hole right through the cover and one or more holes are punched in 
the diskette on the same radius. As the diskette spins, the hole(s) in the diskette line up with 
the holes in the cover and allows a pulse of light from a light emitting diode (called the Index 
Sector LED) to strike a phototransistor. The resulting pulse is fed to the computer to signal the 
start of a track or sector. 

Q. What is the difference between hard and soft-sectored diskettes? 

A. A soft-sectored diskette has only one hole punched in the diskette so it gives one pulse per 
revolution. It is up to the computer's operating system to split tracks up into sectors (more of 
that next issue). A hard sectored diskette has a number of holes punched in the diskette, usually 
10, 13 or 16 so that there are multiple pulses each revolution. Each pulse represents the start of 
a data sector on a track so that the computer's operating system has no control over the number of 
sectors per track. We will go into this whole subject in more detail in the next issue. Suffice 
to say here that the TRS-80 uses soft sectored diskettes. 

Q. What is a flippy-floppy drive? 

A, Ugh I A flippy-floppy drive is one in which you can turn the diskette over and use its reverse 
side. The actual differences between a flippy and a floppy (!?I) is that the flippy-floppy drive 
has a second microswitch to sense the write-protect notch and a second index sector 
light-emitting-diode and phototransistor pair to sense the index sector holes when the diskette is 
reversed. The best known brand of flippy-floppy drive is the Pertec, sold in Australia by Dick 
Smith Electronics. There are two schools of thought on the reversing of diskettes in a 
flippy-floppy drive. One says it is OK. The other is concerned that the felt pressure pad is 
wiping across data. If that pad collects grit, it could scratch the diskette surface and all 
would be lost, irretrievably. We have personally used diskettes in this way for the best part of a 
year now, with no problems. However, we tend to use a large number of diskettes a few times. If 
you use a small number of diskettes often, then you might need to be wary of flippy-floppy drives. 

Q. What is a dual-head drive? 

A. A dual -head drive has a read-write head on each side of the diskette. The heads move on the 
same radial carriage but only one is active at a time, A dual -head drive uses both sides of the 
disk but, because there are no felt pressure pads, only ceramic heads, the objection to the 
flippy-floppy drive does not apply to dual head drives. These drives are an attractive proposition 
to anyone on a tight budget because the shared electronics and power supply means that a dual -head 
drive costs only about one third more than the two-single head drives to which it is almost 
equivalent. The only real disadvantage of a dual head drive is that, in order to make a copy of 
valuable data for safekeeping, you need to swap diskettes during the back-up process, since there 
is not much point in copying from one side to the other if you want to keep the two copies 
separated. Most people consider this minor inconvenience is much more than offset by the real cost 
advantages of the dual-head drive. Dual-head drives are now readily available with 40 tracks on 
each side (e.g. MP I B52) and are available in limited quantities with 80 tracks on each side (e.q. 
MPI B9Z). 

Q. I have seen single sided/single density diskettes advertised and double sided/double density 
diskettes but not double sided/single density. Can I use a double sided/double density diskette on 
a double sided/single density drive? 
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A. Phew! Yes. We will discuss the difference between single and double density drives next issue 
but the standard TRS-80 Model I is designed to use single density drives. Double density diskettes 
will perform at recording densities twice those required by the TRS-80, so they work extremely well 
on single density systems. In order to limit their product range and keep inventory levels down, 
diskette manufacturers simply do not bother to produce double sided/single density diskettes. 

Q. Is one disk drive sufficient or must I buy two? 

ft. That depends on you. Two drives are much more convenient to use than one and most people soon 
want a second drive. The reason is that the disk-operating system and DISK BASIC are stored on a 
diskette, called the SYSTEM diskette. This diskette must be in position on drive at all times so 
that these programs can be called up by the computer. They take up a considerable amount of space 
on the diskette, about 40% of a 35 track diskette so you do not have a great dea of space available 
for your own programs, data etc. If you have a second drive, you can put a data diskette on the 
second drive which has about 80% available space for your programs and data. It is also much 
easier and faster to copy programs from one drive to another than it is from one diskette to 
another, using the same drive. 

That's all this issue. It is a huge subject and we will tackle some of the more technical aspects 
of disk drives next month. 

- 0000000000 - 
***** READERS' REQUESTS ***** 

This column is a regular feature of MICRO-80. In it, we list all those articles, programs, etc. 
requested by our readers. We invite contributions from readers to satisfy these requests and will, 
of course, pay a publication fee for all articles, programs, etc. printed, 

** ARTICLES ** 

-File handling on the '80 

-Description of the functions performed by the Expansion -Interface 

-Reviews of '80 compatible printers 

-Reviews of commercially available software (including that produced by us!) 

-Reviews of commercially available hardward 

-How to SAVE onto Disk, programs such as Analogue clock and Touchtype 

-A master index to the appropriate sections in the Tandy Manuals in Level I, Level II, DOS etc. 

-Comparative review of disk drives 

-How to convert a Level I program to Level II 

-A simple guide to using Level I Arrays 

-Review of Dunjonquest program 

-An explanation of how to make full use of USR, PEEK & POKE statements. 

** SOFTWARE ** 

-GAME OF LIFE relocated to start at 7000H 

-A m/1 program to enable the BREAK key to work like RESET when using an expansion interface 

-Stock market program 

-Horse racing system 

-Sub-routine forum 

-Program to "SET" non-graphical symbols 

-A new STAR-TREK game 

-Conversational programs (like ELIZA) 

-3D programs (such as a maze seen from the inside) 

** HARDWARE ** 

-RS 232 printer interface 

-Interfacing the '80 to external hardware 

-Review on the performance of line filters 

-How to convert a black and white TV to be a monitor 

-Review of high resolution graphics mod 

-Real time clock 

-Radio Teletype/Horse interfacing 

-RFI (Radio Frequency Interference! suppression 

-Interface for a Teletype printer 

Notes :- 

1) Reader Bill Blunder has pointed out that the December 1976 edition of Australian ETI carried an 
article on modifying TV sets to use as monitors. 

2)Electronics Australia for November has an article describing how to construct a simple RS £32 
interface for SI 5. 00. 

3) We already have an article in hand describing how to save TOUCHTYPE to Disk. A master index to 
Tandy manuals is also nearing completion. 

- 00000000000 - 
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***** INPUT/OUTPUT ***** 

FROM: Shirley and Peter Miller, - Stokes Valley, N.Z. 

1) Modifications for the CTR-80 

I have noticed a few friends (with the TRS-8Q7CTR-80) building "Black Boxes" to let them hear 

what's going on. All these attempts have tto some degree) affected the performance of this storage 

system. The modifications outlined below will not degrade the signal nor introduce noise and would 

suit anyone who intends dedicating the CTR-80 to the computer, 

** MOD 1 ** 

To hear a "load"; a 100 ohm resistor is placed across the two rear solder tags of the earphone 

socket. 
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** MOD 2 

To hear 

internal 

Method: 

place a 

Phillips 

circuit 

replaced 

Reassemb 

tracks. 



a 'save' - and the sound on some of the latest games; a 68 ohm resistor is soldered across 

switch tags. 

Remove the jacks etc. and free the recorder from the computer. Find a clear spot and 
soft cloth on your work area. Invert the recorder, remove the batteries and using a small 

screwdriver - remove the 3 small screws. Swing the back clear to give a full view of the 

board. Gently remove any insulated tape from the area we intend to work on - it has to be 

when you have finished. Perform the simple additions. 

e after a thorough check of your soldering - ensure you have not joined any adjacent 
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2) Modifications to the Video. 

We all realise that Radio Shack have saved a few cents in this department. My system was worse 

than most - a 60 Hertz model running on a 50 Hertz main. The modification outlined below also 

applies to those who have a frequency match but are still dissatisfied with the display. 

The crystal (available ex-stock from Rakon Industries Ltd. Auckland New Zealand) used is 10.483M 

Hertz. This replaces the Tandy 10.6445M Hertz, 

I do not recommend this modification to anyone wo has not dabbled in electronics and still wishes 
to void their warranty, However, the results have to be seen to be believed. No in-depth 
instructions will be given - to repress the temptation in those who may try to over-extend 
themselves. 



, tin-TE«c»<c wens. 



2.ND £oiv\ 



™»W» PLMTED-TMISXEfM 
ttoLET© Pin 8 IC Z.32 




JC,Z?>2 



rtQOxi ,. 'i. iii mi TRS-8Q UIOEO TIMIHG CHAIN 

113 REMOVE UC TANDY r;RYSTAl J.n.o'HHM HER! 
(23 REPLACE II WITH A fctl^BSM-i HERTZ ONF 
(■fli LOG AT t 1' ;:: 5 CUT I'KACK AS INDICATED BELOW 
('>> ADD JUMPER AS SHOWN 

3) Lower case Driver (MICRO 80 Issue 5). 

Your Issue 9 published a reader's letter giving a solution to the error - with an error trapping 
routine. My solution is included in the listing below. We all learnt something about integers 
with this one, 

20 POKE 16553,255 

30 FORI%=0 TO 29 

40 READ Q% 

50 POKE ( 32738+ I*),D% 

60 NEXT 

70 POKE 16415, 127:POKE 16414,226 

80 DATA 221,110,3,221,102,4,218,154,4,221,126,5,183,40,1,119 

90 DATA 121,254,32,218,6,5,254,128,210,166,4,195,125,4 

100 END 

(Thank you Shirley and Peter for these useful contributions. We did describe similar modifications 
to the CTR 41 and CTR 80 cassette recorders in earlier editions of MICRO-80 - Issues 1 and 2 but 
they certainly bear repeating. We have heard good things about the video mod you describe but have 
not yet tried it ourselves. Incidentally, there is a suggestion that the Disk Drive Timing program 
DDT-1 will not work on a CPU modified as you describe, due to the change in c,ock frequency. Once 
again, we have no direct experience and would be interested to hear from any reader who has. - Ed) 

From: John S. Bone, - Sec'y, Newcastle Personal Computer Society, U.K. 

I have just finished reading your September MICRO-80, and after showing it to several fellow '80 

users, I wish to congratulate you upon your fine magazine. I am the Hon, Secretary for the 

N.P.C.S., (i.e. UN-paid!!!) and will place a subscription for MICRO-80 with your U.K. distributor 

as soon as my committee "O.K.s it". 

We have 40 or so TRS-80 users and 10 plus Video Genie users in our 130 plus membership through the 

north-east of England and we feel your mag is in a "slot" of its own in the computer mag market, 

with only 80-U.S. or MICROCOMPUTING - 80 from the U.S.A. to compete with it. They, of course, have 

a large amount of adverts, we are pleased to see your min. ads. policy, and hope you continue to 

prosper. 

I would like to see articles upon any AUSTRALIAN EDUCATIONAL USE/POLICY OF TRS-80* s etc. and any 
SCHOOL USERS' experiences/applications by your members, 

he N.P.C.S. caters for both those "just interested" and "The XYZ system USER", by means of monthly 
open meetings/personal micro demo's, at our local polytechnic college and more frequent sub 
meetings at user group level, (incl. '80, 5100, PET, NASC0M, SINCLAIR ZX80, RSM Z80, ad etc.) 
(THESE SUB MEETINGS ARE OFTEN OF THE ""GOSUB 'PUB type"". 

(Thank you for your kind comments, John. We have included the N.P.C.S. in our '80 Users Groups and 
your request for articles concerning "educational applications of TRS-80' s in our Readers' Requests 
column. It is our impression that, to date, there is more experience of the use of microcomputers 
in education in the U.K. than in Australia. Perhaps some of our U.K. readers would like to prepare 
an article or two for us. (If that doesn't stir Australian educators into action, nothing will I) - 
Ed) 
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From: D.G. Johnston, - Herts. U.K. 

A publication like MICRO-80 would seem to fill a need, as most magazines here seem to deal mainly 

with PET and the APPLE. 

I have a Level II 16K TRS-80 and feel that to the less knowledgeable among us that an article that 
"converts" programs from other BASIC'S and also from Disk BASIC to avoid L3 errors, would be 
helpful. 

(We have placed your suggestions in the Readers' Requests section, Mr. Johnston. The main problem 
in converting programs written for one type of microcomputer to run on a different type is not so 
much in converting the BASIC code but rather in converting the screen formatting and graphics. If 
you look at most games programs, for example, you will notice that typically only 25? of the code 
is concerned with the program logic. The remainder is concerned with graphics and screen displays. 
Unfortunately, the three computers you mention, PET, APPLE and TRS-80 all have completely 
different graphics capabilities and different ways of formatting the screen, in BASIC. To convert 
such a program could well be a bigger task than writing it from scratch! 

Other programs which do not make much use of graphics, however, are readily converted. We intend 
to publish useful sub-routines as they are sent in and readers might like to consider sending us 
routines to enable the TRS-80 to emulate commands and statements which are available in BASIC on 
other machines but not on the TRS-80. 
Similar remarks apply to DISK BASIC commands for Level II machines - Ed) 

INPUT/OUTPUT continued bottom of Page 12. 

- 00000000000 - 

***** '80 USERS' GROUPS ***** 

The following is a list of '80 Users' Groups. If you have a group that is not included here, 
please let us know about 1t so that we can publish details. Owners of System '80s are welcome at 
all the grops. 

** AUSTRALIA ** 

BRISBANE: Contact: Mr. Lance Lawes, 
Tel; Home (07)396 2998 

Bus, (07)268 1191 Ext. 15 
MEETINGS 1st Sunday of t(e month at 2 p.m. at 21 Rodney St. Lindum, 4178. 

MELBOURNE: EASTERN SUBURBS - 1 

Contact: Mr. John Fletcher, 89 0677 bet. 9-4 

EASTERN SUBURBS - 2 

MEETINGS: 3rd Wednesday of the month at Kingswood College, 355 Station St. Box Hill. 

FRANKSTON: PENINSULAR GROUP 

(Vic.) MEETINGS: 2nd Tues. of the month (except Jan.) 
Contact: M.G. Thompson (03)772 2674 

GEELONG: *GEEL0NG COMPUTER CLUB 

MEETINGS: 2nd Tues. of the month at TYBAR Engineering, Hampton St. Newtown, 
Contact: The Geelong Computer Club, 
P.O. Box 6, Geelong, 3220. 

DARWIN: Contact; Tony Domigan, P.O. Box 39086, 

Winnellie, N.T. 5789. 

ADELAIDE: Contact: Rod Stevenson, 51 5241 bet. 9-4 

CANBERRA: Contact: Bill Cushing, 10 Urambi Village, Kambah ACT 2902 (Ph. 31 6399) 
MEETINGS: 3rd Thursday of eac(month at 7.30 pm, in;- 
Urambi Village Community Centre, Crozier Circuit, Kambah. 

** UNITED KINGDOM ** 

NEWCASTLE Contact: John Stephen Bone 0632 770036 

NPCS (Newcastle Personal Computer Society) - see INPUT/OUTPUT 

** NEW ZEALAND ** 

AUCKLAND Contact: Ron Feasy 799 366 (Bus.) 469 455 (Priv.) 
MEETINGS: 1st Tuesday of each month, 7.30 pm, at:- 
NZ Solenoid Co. Ltd., 
28 Kalmia Street, 
Ellerslie, Auckland, 

- 00000000000 - 
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***** H1CR0BUGS ***** 

** SYSCOPY ** 

It has been pointed out to us that the SYSCOPY program published last month cannot be entered into 
the machine using BMON because BMON does not appear to be able to enter the last few bytes. Eddy 
Paay has looked at the program and determined that SYSCOPY is too close to BMON and, in fact, 
resides partially in the stack area which BMON uses to store the BASIC registers etc. There are 
two answers. The first, for those with an Editor/Assembler, is to locate SYSCOPY further away from 
BMON. Leave at least 100 bytes clear. The second is to change BMON so that the stack area Is 
below SYSCOPY. There was rot sufficient time available to work out these changes this month so we 
will publish them next month. 

** RESISTOR COLOUR - CODE DECODER ** 

The original program, published last month, did not cater for fractional values where the third 

band may be gold or silver, ftor did it allow for the two extra tolerance colours for 1°*, and 23 

resistors. We have received an amended version of the program from Mr. Khavounitis adding these 
features which we will publish next month. 

- 0000000000 - 

** KB FIX ** 

The gremlins continue to dog our efforts to publish a KB FIX program in BASIC, This month we have 
the program but it has become separated from its original letter so we are unsure of the author. 
Nevertheless, we will publish it and record our thanks to its now anonymous creator. 

This is a short program which self-destructs in the twinkling of an eye, leaving behind it a legacy 
of non-bouncing keys. It could, of course, be renumbered and included in all your BASIC programs 
to save reloading it every time you use it. 

L0 REM KEYBOARD UEBOUNCE ROUTINE 

JO REM NO NEEH 10 ENTER MEMORY SIZE 
10 REM PROGRAM ERASES ON COMPLETION 
40 FOR I =327 4 & TO 32766: READ J I POKE I, J! NEXT 
50 POKE 16526, 234 SPOKE 16527, 127 i POKE 16561,241 
POKE 16562, 127;P0KE 16598,241 ! POKE 16599,127 
60 X>U5R<N) 
/0 NEW 

- 00000000000 - 

INPUT/OUTPUT - continued from Page 11 

From: J. Pinn, - Wembley Downs, W.A. 

One point which may be of interest to you is at I went to my nearest Tandy Store and asked if he 

could offer similar discounts to CONQUEST ELECTRONICS. He said that he had never heard of a Tandy 

store offering discounts as they are not permitted to do so. He also said that if I sent to 

CONQUEST ELECTRONICS that the warranty would not stand. Is this true? 

{CONQUEST ELECTRONICS is a Tandy Authorised Dealer not a Tandy Electronics Store. Tandy Authorised 
dealers are independent organisations who are authorised to sell Tandy goods. A Tandy Electronics 
Store is owned by Tandy Electronics Australia Pty. Ltd. Store managers and staff are salaried 
employees of Tandy Electronics. Normally, Authorised Dealers are only appointed in country towns 
where there are no Tandy stores. Goods sold by Tandy Authorised Dealers carry Tandy's much 
advertised world-wide warranty just as if they had been bought from a Tandy Electronics store. 
Fortunately, enlightened consumer legislation in most Australian States makes it illegal for a 
supplier to control the retail selling price of his goods or to withhold supplies from a retailer 
who offers discounts. So your Tandy Electronics store manager was incorrect on both counts. 

It is interesting to note that the American magazines are full of discount offers by Tandy 
Authorised Dealers and, reputedly, one of these dealers who concentrates mainly on mail order is 
the largest single seller of TRS-80's, bar none. - Ed) 

From: Mr. Stan Jaques, - West Pennant Hills, NSW 

I am having trouble with using the BMON program. The program works very well but when I select the 
'C comand - COPY MEMORY TO TAPE - the screen displays "START, END, ENTRY, NAME, Here you have 
lost me. The instructions tell me to type in the correct values under each but, from where do I 
get these values. I am very interested in copying some existing machine language tapes 

(START is the starting address in HEX of the machine language program you wish to copy. END is its 
ending address in HEX whilst ENTRY is the address {in HEX) to which the microprocessor must jump to 
run the program. NAME is any six letters you choose. If you type in a program from MICRO-80 for 
example, all these parameters will be specified. If you only have a machine language tape, 
however, you have a problem. The program we published last month, SYSCOPY, is designed to overcome 
that problem so we suggest you enter that one first but see this month's and next month's 
MICROBUGS. - Ed) 

- 00000000000 - 
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***** SOFTWARE SECTION ***** 

** LEVEL 1 PROGRAMS ** 

FIGHTER SQUADRON by Br. P. Van EEKEN ... 4K/L1 

This is an example of mixing education with a game. You are a squadron leader who has between 2 
and 4 planes to destroy GESTAPO H.Q. Before the mission, you have to calculate your arrival time 
to the target. If, after 5 tries you haven't got the right answer, it will be displayed and the 
game part of this program starts. If you get the right answer the game starts straight away. 
GESTAPO H.Q. is drawn on the screen with four guns to demolish. Then your first plane starts its 
bombing run and continues until it is shot down. 

Line 77 tests the number of guesses. If less than 5, the program jumps to line 85 which checks 
your answer. The subroutine for drawing GESTAPO H.Q. starts at 2000. Line 320 & 330 are not the 
results of bad typing, 320 IF(P.tN.D)) etc. is the same as IF < POINT tN,D) =1 ) etc. and 330 - 
IFP.(N,D)GOS.750:G.4O0 is the same as IF P0INT(N,D)=1 G0SU8750:G0T040O, this is a space saving 
trick which comes in handy if you only have 4K of memory and you are trying to squeeze the last 
little bit (in this case byte) out of your machine. 



1 R=0:G.47 

Z F.X=AT.B:S.CX,C):N.X:RET. 
3 F.X=CT.DiS.(B,X):N,X:RET. 
10 REM BY BR. P. URN EEKEN 

47 IFZ-2G.58 

48 D=R. C3)+3-*S-R.C50):R=D*S: J=R.C3>+1 

5B C. :P. -5QURDR0N LERDER : ' : P . : B*-GESTAPO H.Q. 

51 P. "YOU HAUE'; J; 'PLANES TO DESTROY ';BS;' WITH. - : P. 

52 P. "YOU MUST HIT RLL THE ANTI-AIRCRAFT GUNS DEAD CENTRE": P. 

53 P. "TO DESTROY ';B*:P.:Z=Z 

70 P. A. 575; 'TO STRRT YOUR MISSION YOU HRUE TO CORRECTLY CALCULATE' 

75 P. "THE HOURS IT WILL TAKE YOU TO ARRIUE RT YOUR TARGET' ;fl 

75 P. "KILOMETRES RWRY, TRAUELLING AT';D;:I."KM PER HOUR*;P 

77 R-R+1:IFR<5G.8S 

80 P. A. 896. 'THE CORRECT RN5MER IS' ;5; :F.R»1TO1000:N.R:G. 100 

B5 IFP=SG. 100 

90 P. A. 836; 'TRY AGAIN. '; A- 704: G. 70 

180 F.X-1T.4:RCX)-0:N-X:GOS.Z000 

101 R=0:S=0=W-1 

105 K=0 

110 E=0:GO5.791 

115 IFK=-0I=R. t 1Z):IFK4G.1IS 

1Z0 IF(KO) + CK>108)Z-1 

130 in<>az=z 

140 IFK>23Z-3 

150 IFTOS6Z-4 

151 IFA( Z > = 1Z-Z+1: IFZ=5Z-1 : IFEJ50G. 4000 
1SZ IFA(Z)-1E-E+1:G.151 

155 E=0:RE5T. 

160 F.X-1T.Z:REA.A,B:N.X 

170 GOS.300 

200 F.H-1T.40:P.A,841; 

205 IFKH27R.(K-G,I-1 ): F. X-K-6T. K: R. ( X, I 5 : N.X: K=0 

220 IFK-0S.<K,I-1 >:F.K=8T.G:S.tK, I):N.K 

230 IFK-7R.(0.I-I):R.C0,I ):S.( K, I) 

240 R. (K-6,I-1):R.(K-G,I):S. CK-5, I - l)i K-K+1 =S. CK.I3 

Z4S IFW=8G.300 

ZS0 IFP. CE1,40)-8T--1:GOS.2000:G.105 

ZB1 IFP. f 20,39 )=0G.Z30 

270 2=R.(2):IFZ-2G.240 

280 G.400 

293 P.A.943;'\\\ BOMBS AWAY \xx";A.0 

Z31 5.t28,33):W-0:N-K-3:O-I+2;S.(N l 1+1) 

300 F.D-OT.O+3 

310 IFP.CN,O)-0G.3S0 

311 REST.:F.X-1T.4:RER.P,Q 

315 IF(N-P+1 )«(D-Q+1 )60S. 780: G.400 

31B N.X 

320 IF(P.tN,D>)«<N-A)-KN=A+Z)GOS,780:G.400 

330 IFP. CN,D)GOS.750:G,400 

350 R.CN.D-l>:S.(N.D):N.D:0-0+4 
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480 ifh>2-i.<hv2>g.82b 

410 IFB-H-4<0R. (fi,B-H-l):R. ( R+Z, B-H-2 >: G. BS0 
420 IFC B-H-3< >I )*t B-H-4< >I )G. B15 
430 F.F-K-6T.K: IFl fl-F )+( fl+2=F )G. 440 
435 N.F:G.B15 

440 R.(R,B-H-1 J:R.CfB-2,B-H-2J 

441 R.CN,D-1KGO5.730 

445 F.C-1T.5 

450 R.tK-B,I-l):R.(K-B, I ) 

460 F.F=K-5T.K+1:S.(F, I):R.CF,I3:N.F 
4B5 N.C 

469 R«=PLRNES 

470 R=R+1:P.A.87B;R; : IFR=1RS=PLRNE 
475 P.Rt; " LOST"! 

48H H=0: IFR<JG. 105 

490 P. R, 8: 'THE GERMRN REICH HAS RNNIHTLRTED YOUR SQUADRON !' 

500 P. :P. :P.T.<20); "HTEL HITLER "":P. 

510 I. "LIKE TO TRY RGAIN ( Y/IH > " ;S: IFS<! >NG. 1 

528 C, :E. 

693 G.105 

700 R. tP.Q-1 ):R. CP,Q):R. CP+2, Q-2 ) : R. C P+2, Q-l J:R.<P+2,Q) 

701 RCX)-1:R.CN,D-1 ) 

702 P.R. 43; -DIRECT HIT !* 

703 F.D=1T.3 

71B F.X=-P-2T.P-M:F.Y=Q+lT.Q+2 

715 S. CX,Y>:F.E-1T.2B:N.E:R.(X,Y>:N.Y:N.X:N.D 

719 AS=GUM5 

720 5=5*1: P.R. 940; 5; : IF5=1AS=GUN 

721 R.(P,Q-2) 

725 P.fll;" DEMOLISHED' ; :G. 790 

750 P. B. 43; "MINOR DRMAGE !";:G.790 

760 IFN>11P.R.43; "THAT TICKLES !*:G.78S 

781 F.E-1T.5 

7B2 F.C-D-1T.D+1:F.G=N-2T.H+Z:5.1G,C):R.CG,C).-N.G:N.C 

7B4 N.E 

7BS F.U-0T.3:R.tfl,B'H-U}:R.fFI+2.B-H-U)!N.U:H=0 

790 W-l:R. <N,D-1 ) 

791 S.C20,39):P.R.B43; 'PRESS <B> TO BOMB" i :P. R. 841 ;: RET . 
B15 S.(R, B-H-3):R. (R.B-H-1) 

616 S.£A+2,B-H-4):R.<A+2,B-H-Z) 

820 N.H 

850 P.R,40;-':G.110 

900 F.G-1T.Z 

910 F.E-B-2T.B: IFE-BG.920 

915 R.(R,E) 

920 N.E 

930 F.E-BT.B-2S.-l:S.(fi,E>:N.E 

940 F.E-B-2T.B:IFE=BG.950 

345 R.CR+2.EJ 

950 N.E 

960 F.E-BT.B-2S.-1:5. CA+Z,E):N.E 

970 N.G:RET. 

2080 C. 

2001 IFT--lGOS.790=T-0 

2010 R-0:B=20=C-30:GO5.2 

2020 D-40:GO5.3 

203B R-21:B=30:C=35:GOS.2 

2040 D-3S:C=25;G0S.3 

2050 A-31:B=61:G05.2 

20BB D=40:GOS.3 

2B70 A-62:B=-30:C=40:GO5.2 

2080 F.X-90T. 110:S.CX,C):C=C-l:N.X 

2B3B R=lll:B=127=GOS.2 

2092 P.R,913;BS: :P.R.B41; 

2100 C-30;O=47:B=0:GOS.3 

2110 B-127:C-20:GOS.3 

2120 R-0:C-47:GOS.2 

2130 A-37:B=43:C-31:GOS.2 

2140 D-3S:B=44:G05.3 

2158 fi-B:B-51:C-38:60S.2 

2160 R-37:C=35:GOS.2 

2170 B=37:GOS.3 

2180 C-31:D=3S:B=51:G05.3 
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Z190 F.X=7T.13=5.CX,Z3):N.X 

2210 Y=24:F.X=ST. 05.-1 

ZZ20 S.CX,V):y-Y+l:N.X 

Z230 Y=24:F.X=14T.20=S.CX,Y):Y=Y+1:N.X 

2231 REST. :F.D=1T.4:REA.P,Q:IFRCD)=IG.ZZ34 

2232 F.X=P-2T.P+4:F.Y=Q+1T.Q+2:S.CX.Y):N.Y:N.X 

2233 A=P:B=Q:GOS.900 

2234 N.D 

2399 0.9,20,39,22,83,37,114,16 

3000 P.A.0; 

3001 RET. 

4000 F.F=37T.43:R.CF,31):N.F 

4001 F.F=31T.3B:R. C44,F):N.F 
4802 F.F=44T.5i:R.(F,38):N.F 
4003 F.F=37T.51:R. CF,35):N.F 
4005 F.F=31T.35-:R.(51,FJ:N.F 
400S F.F=3ST.3B:R,C37.FJ:N.F:R*-" 
4007 P.R.813;A«; :p.A.843;A»; 

400H P.A.0;BS;" IS NOW INOPERATIVE WELL DONE > 

4003 P. :G.510 

- 00000000000 - 

FOOD REQUIREMENTS by Br. P. Van Eeken ... 4K/LI 

You'll be able to find out how much you are eating each day (in Kilojoules) with this program. 
You'll also get a breakdown of the percentage of carbohydrates, protein, fats and fibre in your 
diet. All you have to do is enter the amount you eat in one day, from each of the five basic food 
groups. If you get ambitious, try adding more items to the various food groups (with their 
appropriate Kj value), as well as a section for calculating consumption against height, weight and 
amount of activity you have in a day. Have a go - you may find that you're a better programmer 
than you thought. 

DRILY FOOD REQUIREMENTS 
BY - BR. P. URN EEKEN 

COPYRIGHT - MICRO- 80, NOVEMBER 1380 
PO BOX GOODWOOD, SOUTH AUSTRALIA 5034 

100 T-0 : F=0 : K-0 : N=37 : U=0 : H=- 22 : REST . 

110 F.X=1T.N:RER.B*:N.X 

120 F.X=N+1T.2*N:REA.RCX):N.X:REST. 

130 GOS.B00:BS=EACH 

140 P-5:GOS.960:B*=CUPS 

151 GOS.360:GOS.800:P=3:GOS.9G0 

180 GGS.800:P=2:GOS.960:B*=SLICES 

181 P=i:GOS,960rB*=EACH 

183 P=3:GOS.SG0:GOS.800:P=3:GO5.SG0:BI=5LICES 

137 P=2:GOS.g60:B*=PIECES 

202 P=3: GOS, 960; BS= TABLESPOONS 

210 P=l:GOS.Se0:GOS.800:P=3:GOS-960:GGS.800 

230 P.fl.576;-EXTRAS-:P. " 

235 P-3 : GOS . 860 : BS-ERCH^ SQUARES 

241 P=1:GOS.960:B*«GLASSE5. 

243 GOS.360:BS=SERUES 

245 GOS.9G0:G=T-CA+B+C+D+E) 

260 W=100:R-I.CtC+G)/T#W+.5):O-I.Cfl-'T*W+.5) 

2S5 Q= I . < t B--2+D* . S7 J ^T*W+ , 5 ) : P~W- < R+Q+O ) : C . : GOS . 800 

280 P. : P. R. 512; "YOUR FOOD INTAKE TOTALS" ; T; "KILOJOULES. 

285 P.T. C24);" " ; T. < 503 ; "NORMRL X 

290 P. "OF THIS TOTRI ■; : B*-CARBOHYDRATES 

292 K=50 : Z=R : GOS . 950 : BS=PROTEINS 

296 K=20:Z=Q:GOS.350:BS=FRTS 

301 Z=P:GOS.950:B*=FIBRE NEEDS 

306 Z-O:K=10:6OS.950:GOS.S9S:K=0: J=1:REST. :C. 

320 P. "YOUR EATING HRBITS ':IF0>9T.348 

331 U=U+1:H=-22:GOS.970:Z=1:P. -FRUIT & UEGE* S 

340 M=10:GOS.700:IFZO1T.345 

34S Z=0:M=3:GOS.700 

350 IFR<51T.3B0 

351 P.=Z=1:J-0:H=-22:P.-TOO MUCH CARBOHYDRATE FOOD... 
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352 11-6: GOS. 700 

353 Z<=0 : M-1S : GOS . 700: 2-1 : M=B : GOS. 700 = REST. 

354 2-0:M«13:GO5.700:U=U+l 
360 M-G:GOS.700:IFQ>20T.380 

371 P. :GOS.970:J«1:Z-1:U=U+1:H— Z2:P. "PROTEIN FOODS. 

3BB M=9JGOS.700JlF2OlT.3aa 

330 2=0:IFP<2GT,400 

395 P. :A-l:J-0=H— 22:P.'T00 MUCH FATTY FOOD & MEATS... 

395 Z-l:lH)+l 

400 M=3:GOS.700 

401 IFZ< >1T.410 
410 IFT>9000T.450 

420 B*=LITTLE. 

421 J = 3 

450 IFTOZ000T-460 

451 B*-MUCH. 
4SZ J=4 

4G0 IF JOT. 470 

4GI P, :P. :H— ZZ:P. * IN GENERAL, YOU ARE POSSIBLY EATING TOO ":BS 

462 REST. :K-0:IFJO4T.470 

463 2=0: J-0 : M-13 : GOS . 700 : Z=l : M=6 : GOS . 7B0 : n*3: 2=0 : GOS . 700 
4G4 M=9:Z-1:G0S. 700:6,430 

470 IFU< >0T.490 

480 C. :P.A,460; "YOU HWE R WELL BRLANCED INTAKE OF FOOD. 

490 GOS. 935: G. 100 

600 P.R.7Z0; "FOOD" ;T. (35); "AMOUNT" ;T. (50); "YOUR ANSWER 

610 P.T.(IG);" ";T.(35);" ";T.(50>;" 

G1S K-K+l 

620 P.T.(I6);A*;T.(35);B«;T. (55); : I.A(K) 

621 T=T+fl(K)*fl(K+N):IFKO10T.G30 
625 A-T 






G30 IFK-l3H=T-fl 
640 IFK = 19C=T-(A4-B) 
6S0 IEK-Z0D=T-(A+B+C) 

GEB IFK-31E-T-(A+B+C+D) 

699 RET. 

700 F.X-1T,M:RER.AS:K-K+1 

710 IF2O1T.750 

711 IFJ-1T.720 

712 IFACKK2T.750 

714 IFK< >1GT.730 

715 IFA(KK4T.750 

716 G.730 

720 IFA(K)>0T.750 

730 H=H+22:IFH>44H-0:P. 

740 P.T.(H),A»; 

750 N.)C:RET. 

800 C. :P. "DRILY FOOD REQUIREMENTS S ' ; P. "GROUP. . . 

810 P.*l. FRUIT RND VEGETABLES - 4 TO 5 SERVES. 

815 P.'Z. MILK - 2 TO 3 CUPS. 

B20 P. "3. BREAD RND CEREALS - 3 OR MORE SERUES. 

825 P.M. PROTEIN (MEAT, EGGS, FISH & CHEESE) - 2 SERVES. 

830 P. '5, FRTS & OILS - 2 TABLESPOONS. 

831 P.: P. 'WHAT DO YOU ERT IN ONE DRY: 

832 P. :F-F+1=P.A.576; "GROUP" ; F: P. * 

835 RET. 

900 D. APPLES, BRNRNAS, ORANGES, CARROTS, TOMATOES, POTATOES, CABBAGE 
S01 D.PERS RND BEANS, OTHER VEGETABLES, OTHER FRUITS, MILK, YOGHURT 

902 D. ICECREAM, BREAKFAST CEREAL, SPfiGETTI-'PRSTA, BRERD 

903 D. BISCUITS - DRY, BISCUITS - SWEET. CRKE5 , EGGS, SAUSRGES 
304 D.MEAT PIE, BACON, LAMB, BEEF OR STERK, CHICKEN, FISH, CHEESE 
905 D. MARGARINE, BUTTER, CREAM, SUGAR, GRRUY OR SAUCES 

90S D.JRMS AND 5PREADS, LOLLIES y CHOC, SOFT DRINK, DESSERTS 
S20 D. 300, 354,250,100, 100, 550, 110, 200, 200, 190 

921 D. 645,500,600 

922 D.43S.71S, 250, 100,285,500 

923 D. 450, 500, 216B, 500,500, 1B00, 1100,700,300 

924 D. 570, 576,306 

925 D.2G0,300,325,100,500, 1B00 

950 P.T.(20);B»; " 0CCUPY*:Z;"**;T.C55);K:RET. 

9G0 F.X-lT.P:REA.Af : GOS. 500: N. X: RET. 

970 P. 'NOT ENOUGH. . . " :RET. 

995 P. R. 960; 'PRESS ENTER ";:I.B»:RET. 

939 E. , 
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***** f)EW FROM MICRO-80 
We have a host of new products and software 

MICROTEK MEMORY EXPANSION/PRINTER MODULES 
A number of our readers expressed interest in 
the memory expansion module we developed 
earlier in the year. Unfortunately, there was 
not sufficient interest to make it worthwhile 
continuing with this rather expensive project, 
particularly as a completely assembled, tested 
unit would have had to sell for more than 
$200. 

Fortunately, MICROTEK in America had the same 
idea and with the larger population and 
greater resources, has been able to produce a 
similar unit which we can sell for only $149, 
We are disappointed that we were unable to 
produce our own design economically but are 
happy to offer you the MICROTEK unit. It 
comes fully assembled and tested in a metal 
cabinet of similar size to the Tandy expansion 
interface so that you can sit your monitor 
atop it. The MICROTEK unit intercepts the 
Tandy power supply cable and has its own 
internal rectifiers and regulators. As well 
as |roviding sockets for 32K of memory, it also 
has a Centronics parallel printer port which 
enables you to run a line printer or the 
Olivetti ET-121. Full instructions for 
connecting to your system and adding memory 
chips are included. 

MICROTEK MT32-A OK $149 

MICROTEK MT32-B 16K $208 

MICROTEK MT32-C 32K $262 
Incl.p&p. The memory supplied is our prime, 
branded 200 nanosecond Kit. Fitting is 
included in the price if memory is ordered 
with the module. 



***** SYSPAND-80 FOR SYSTEM 80 COMPUTERS ***** 

$119 incl pSp. 
The SYSPAND-80 adaptor designed by MICRO-80 
PRODUCTS is now available in fully assembled 
and tested form. Kits and Kit prices will be 
announced next month. The SYSPAND-80 connects 
to the rear of the SYSTEM-80 and provides a 
Centronics parallel printer port plus the Tandy 
bus so that you can run a Stringy Floppy, the 
MICROTEK memory expansion module or even a 
Tandy expansion interface/disk drives etc. from 
your SYSTEM-80. The SYSPAND-80 has its own 
plu(]-pack power supply and internal regulator 
so it imposes no additional load on the SYSTEM 
80 power supply. 



40 PIN EDGE CONNECTORS $12.30 +50c. p&p 
These difficult to obtain connectors are 
essential if you are working on a hardware 
project requiring connection to the TANDY bus. 
The connector attaches to a 40 way ribbon 
cable and plugs straight on to the back of 
your TRS-80. 



***** GREEN SCREEN SIMULATOR ***** 
$19.95 incl. p&p 
The GREEN SCREEN SIMULATOR is made from a deep 
green perspex, cut to fit your monitor. It 
improves contrast and is much more restful to 
the eyes than the normal grey and white image. 

All the editorial staff of MICRO-80 
(including Scrooge Mc. Hartley) are now using 
GREEN SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have 
an old (squarish) or new (rounded) style 
monitor when ordering. Not available for Dick 
Smith monitors. 



PRODUCTS ***** 

for TRS-80/SYSTEM 80 microcomputers. 

OLIVETTI ET-121 DAISY WHEEL TYPEWRITER FOR '80 
only $1995 

MICRO-80 PRODUCTS has developed an interface to 
drive the OLIVETTI ET-121 typewriter from a 
Centronics parallel printer port. The ET-121 
is a quiet, high speed (20 cps) 
auto-correcting, electronic typewriter 
utilising a Z 80 microprocessor. We have 
mounted an interface inside the typewriter 
which does not interfere with manual operation 
but enables it to be driven as a printer from a 
Centronics port such as is available in the 
SYSPAND-80, MICROTEK module or TRS-80 expansion 
i nterface. 

This makes an ideal combination for the home or 
office where you need the flexibility of a 
quiet, reliable, superior typewriter which can 
double as a correspondence quality printer when 
driven from your microcomputer. 
This issue of MICRO-80 has been typeset using 
the MICRO-80 OLIVETTI. 

Deliveries commence in December. Secure your 
order by sending a $50 deposit or write asking 
for further technical details. 



DATA SEPARATOR 
When Tandy designed 
interface, they did 
separator in the dis 
despite the 
recommendations to do 
many disk drive owner 
I/O errors. The answe 
This unit fits i 
interface. It is 
instructions and is a 
disk user. 



$37.00 plus $1.20 pSp. 
the TRS-80 expansion 
not include a data 
k-controller circuitry, 
I.C. manufacturer's 
so. The result is that 
s suffer a lot of Disk 
r is a data separator. 
nside your expansion 
supplied with full 

must for the serious 



device, a 
longer if the 
the past, the 
clean the 
apart and 



DISK DRIVE HEAD CLEANING DISKETTES 
$29.00 plus $1.20 p&p 
Disk drives are expensive and so are 
diskettes. As with any magnetic recording 
disk drive works better and lasts 
head is cleaned regularly. In 
problem has been, how do you 
head without pulling the mechanism 
running the risk of damaging 
delicate parts. 3M's have come to our rescue 
with SCOTCH BRAND, non-abrasive, head cleaning 
diskettes which thoroughly clean the head in 
seconds. The cleaning action is less abrasive 
than an ordinary diskette and no residue is 
left behind. Each kit contains: 

- 2 head cleaning diskettes 

- 1 bottle of cleaning fluid 

- 1 bottle dispenser cap. 



****** DISKETTE BREAKTHROUGH ****** 

40 TRACK NASHUA DISKETTES (in library case) 
SINGLE SIDE/SINGLE DENSITY $45.00 box of 10 

40 TRACK VERBATIM DISKETTES 
DOUBLE SIDE/DOUBLE DENSITY $59.00 box of 10 

77 TRACK VERBATIM DISKETTES 
SINGLE SIDE/SINGLE DENSITY $59.00 box of 10 



All prices include p$&p. 
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NEWDOS 80 IS IN STOCK, (only $149) 
This long-awaited disk operating system has now 
arrived and has already been delivered to many 
eager customers around Australia. It is every 
bit as good as it was craeked-up to be and 
MICRO-80 has decided to standardise on it for 
its own systems. Here are just a few of the 
many things you can do with NEWDOS 80 which is 
upward compatible with TRSDOS and NEWDOS + 
(I.e. TRSDDS and NEWDOS + programs will run on 
NEWDOS 80 but the reverse is not necessarily 
so. ) 

* New BASIC commands that support variable 
record lengths up to 4095 bytes long. 

* Mix or match disk drives. Supports any 
track 

count from 18 to 96. Use 35, 40, 77 or 80 
track 5" mini disk drives, 8" disk drives, 
OR ANY COMBINATION! 

* An optional security boot-up for BASIC or 
machine code application programs. User 
never sees "DOSREADY" or "READY" and is 
unable to "BREAK", clear screen or issue any 

direct BASIC statements including "LIST". 

* New editing commands that allow program 
lines 

to be deleted from one location and moved to 
another or to allow the duplication of a 
program line with the deletion of the 
original . 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

* Powerful program chaining. 

* Device handling for routing to display and 
printer simultaneously. 

* DFG function; simultaneous striking of the 
D, F and G keys will allow user to enter a 
mini -DOS to perform some DOS commands 

without 
disturbing the resident program. 

* Includes Superzap 3.0 (improved, machine 
language version of Superzap) and all 
Apparat 2.1 utilities). 



NEWDOS + 

35 TRACK VERSION 

p&p 

40 TRACK VERSION 

pSp 



$99.00 incl, 

$110.00 incl. 



NEWDOS by Apparat, is the third generation disk 
operating system for your TRS-80. NEWDOS 
corrects over 70 errors and omissions in TRSDOS 
and Disk BASIC yet the two are completely 
compatible. Going from TRSDOS to NEWDOS is 
kike going from Level I to Level II, more 
power, more convenience, greater speed. NEWDOS 
+ includes the following utilities: 

* Editor-assembler for Disk 

* Disassembler (Z80 machine code) 

* LM offset - allows transfers of any system 
tape to a Disk file-automatically relocated. 

* BASIC 1 - Lets you convert your computer 
back to Level I 

* LVIDKSL - Saves and loads BASIC 1 programs 
to disk 

* SUPERZAP - display/print/modify any location 
in memory or on disk. 

* RENUMBER BASIC program, 
and much more. 



***** MICRO-80 PRODUCTS ***** 
Please use order form on page 36 



***** MICROPOLIS 77 TRACK DISK DRIVES ***** 
These fabulous MICROPOLIS disk drives have more 
than double the storage capacity of the 
standard 35 track drives. 

** DD-7S only $775 incl. pSp ** 
77 track MICROPOLIS drive complete with cable 
for four drives, power supply, chassis and 
includes NEWDOS 80. 



** DD-7 only $649 incl. p&p ** 

Same as abovs but no cable or NEWDOS 80. 



** DC-4 only $45 incl . p&p ** 

4 drive connector cable - suitable for any disk 

drives. 



**** MP I DISK DRIVES ***** 

MPI is the second largest manufacturer of disk 
drives in the world. MPI drives use the same 
form of head control as on 8" drives and 
consequently, they have the fastest 
track-to-track access time available: 5msec, 
All MPIr drives are capable of single or 
double-density operation, (Double-density 
operation requires the installation of a 
Special PC board in the expansion interface. 
This board is not yet available in Australia). 
As well as the single head 40 track disk drive, 
MPI also make a dual -head 40 track disk drive. 
A dual-head drive is almost as versatile as two 
single-head drives but is much cheaper. 

Our MPI drives are supplied bare, set up to 
operate with TRS-80. They can be used bare or 
a simple cabinet made up from sheet metal 
(single-drive cabinets will be available in 
early December - price $10,00). They require 
the use of a separate power supply giving 5 
volt at 0.7 amp and 12 volt at 1 amp. AM 
drives are sold with a 90 day warranty and 
service is available through M1CR0=80 
PRODUCTS. 

MPI SINGLE HEAD DISK DRIVE only $339 incl . 

p&p. 

MPI DOUBLE HEAD DISK DRIVE only $449 incl. 

p&p. 

AVAILABLE SOON:- 

MPI 80 TRACK SINGLE HEAD DRIVE only $499 
MPI 80 TRACK DOUBLE HEAD DRIVE only $599 

Ring first to check availability. 



FLOPPY DOCTOR AND MEMORY DIAGNOSTIC 
[by MICRO CLINIC) $29.95 plus 50c. p&p. 
Two machine language programs on a diskette 
together with manual which thoroughly test 
your disk drives and memory. There are 19 
possible error messages in the disk drive test 
and their likely causes are explained in the 
manual . Each pass of the memory tests checks 
every address in RAM 520 times, including the 
space normally occupied by the diagnostic 
program itself. When an error occurs the 
address, expected data, and actual data are 
printed out together with a detailed error 
analysis showing the failing bit or bits, the 
corresponding IC's and their location. This 
is the most thorough test routine available 
for TRS-80 disk users. 
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** PROGRAMS FROM CREATIVE COMPUTING ** 

** ADVENTURE PROGRAMS ** 
AOVENTURELAND (L2/16K) $14.95 + 50c. p&p. 
Try to find and take treasures as you explore 
a fantasy world. The computer acts as your 
puppet and carries out your two word commands. 
Sometimes you will need special objects to do 
certain things, often a little magic is 
necessary. Absorbing and challenging. 

THE COUNT ADVENTURE (L 2/ 16K} 514.95 + 50c. p&p. 
In this adventure, you awaken in a bed in a 
castle in Transylvania. You don't know why 
you are there but you'd better solve the 
puzzle before it's too late. Just as 
enthralling as AOVENTURELAND but blood 
thirstier! 

** GAMES ** 
AIR TRAFFIC CONTROLLER (L2/16K) $9.95 + 50c. p&p 
One of the hottest selling games in the USA, 
you are the Air Traffic Controller and the 
monitor is your radar screen. Bring down the 
aircraft safely and avoid mid-air collisions. 

Z CHESS (L2/16K) SI 9. 95 + 50c. p&p. 
Seven levels of ability, contains all standard 
moves including castling and En Passant 
captures. It can play either black or white 
and its versatile board set-up mode allows 
specific positions to be played as desired. 

SPACE GAMES (L2/16K) $13.50 + 50c. p&p. 

4 Space Games includifiq ULTRA-TREK, R0MULAN, 
STARWARS and STARLANES. Fast, real-time 
graphics. 

STRATEGY GAMES (L2/16K) $9.50 +■ 50c. p&p. 

5 Strategy games including TUNNEL VISION (find 
your way out of a 3-D maze), EVASION - avoid 
the deadly snake), JIGSAW (put the puzzle 
together), THE MASTERS (Golf on the '80 for up 
to 4 players), MOTOR RACING {Compete against 
the computer at Indy or the Grand Prix). 

GRAPHING PACKAGE (L2/16K) $9.95 + 50c. p&p 
A setof 6 utility programs which allow you to 
draw BAR GRAPHS, GRAPH CARTESIAN COORDINATES, 
carry out POLAR GRAPHING, PARAMETRIC GRAPHING, 
LINEAR REGRESSION and PARABOLIC REGRESSION. 



** SCOTCH BRAND COMPUTING CASSETTES ** 

These super-quality cassettes are now back in 

stock. 

C-10 pack of 10 $26.00 incl. p&p 

C-30 pack of 10 $28.00 incl. p&p 



***** 16K MEMORY EXPANSION KIT ***** 

## REDUCED TO ONLY 559.00 ' ! ! ! U 
These are prime, branded, 200 ns (yes, 200 
nanosecond) chips. You will pay much more 
elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts 
Is also required to upgrade the CPU memory in 
the TRS-80 - these cost an additional $4.00. 
All kits come complete with full, step-by-step 
instructions which include labelled 
photographs. No soldering is required. You do 
not have to be an experienced electronic 
technician to instal them. 



** PROGRAMS BY MICROSOFT ** 

EDITOR ASSEMBLER PLUS (L2/16K) 
UM REDUCED TO ONLY $37.50 + $1.20 p&p. #W 
A much improved editor-assembler and 
debug/monitor for L2/16K TRS-80 or SYSTEM 80. 
Assembles directly into memory, supports macros 
and conditional assembly, includes new 
commands-substitute, move, copy and extend. 

LEVEL III BASIC $59.95 plus 51.20 p&p. 
Loads on top of Level II BASIC and gives 
advanced graphics, automatic renumbering, 
single stroke instructions (shift-key entries) 
keyboard debounce, suitable for L2/I6K and up 
(Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p. 
This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. 
Endless variety and challenge as you seek to 
rise to the level of Grand Master. Until you 
gain skill, there are whole areas of the cave 
that you cannot enter. (Requires 32k One 
Disk) 

DISK EniTOR ASSEMBLER 

SAVE $30 ONLY $107 plus $2.00 p&p. 
Supports Macros, linking loader, editor, cross 

references. See Assembly language programming 
article in August MICRO-80 for further details. 
(Requires 32K One Disk) 

BASIC COMPILER $208 plus $2.00 p&p. 
Converts Disk BASIC programs to machine code, 
automatically. A compiled program runs, on 
average, 3-10 times faster than the original 
BASIC program and is much more difficult to 
pirate. Note: MICROSOFT have temporarily 
withdrawn this program for reworking to make it 
less memory-hungry. The revised version should 
be available about the end of NOVEMBER. All 
existing owners will receive updated versions 
at no cost to them. Don't wait though, send in 
your orders now and be near the front of the 
queue. 






***** boqks ***** 
LEVEL II ROM REFERENCE MANUAL $24.95+51.20 p&p 
Over 70 pages packed full of useful information 
and sample prorams. Applies to both TRS-80 and 
SYSYEM 80. 

TRS-80 DISK AND OTHER MYSTERIES 
$24. 95+51.20 p&p. 

The hottest selling TRS-80 book in the U.S.A. 
Disk file structures revealed, DOS's compared 
and explained, how to recover lost files, how 
to rebuild crashed directories - this is a MUST 
for the serious Disk user and is a perfect 
companion to any of the NEMDOS's, 



** OTHER PROGRAMS ** 

INFINITE BASIC BY RACET (32K/1DISK) 
$49.95 + 50C. P&P. 
Full matrix functions - 30 BASIC commands; 50 
more STRING functions as BASIC commands 

GSF/L2/48K $24.95 + 50c. p&p. 
18 machine language routines including RACET 
sorts. 

BUSINESS ADDRESS AND INFORMATION SYSTEM 

(48K/DISK) $24.95 + 50c. p&p. 

Allows you to store addresses and information 

about businesses, edit them and print them 

out. 
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***** SOFTWARE BY AUSTRALIAN AUTHORS ** 






All our software is suitable for either the 
SYSTEM 80 or the TRS-80 (with the exception of 
Me Think it Micro Mazin vol. 2). 

** UTILITIES ** 

S-KEY by Edwin Paay $15.95 plus 50c. p&p 
S-KEY is a complete keyboard driver routine for 
the TRS-80 and becomes part of the Level II 
basic interpreter. With S-KEY loaded the user 
will have many new features not available with 
the standard machine. 
S-KEY features: 

* S-KEY provides an auto-repeat for all the 
keys on the keyboard. If any key is held 
down longer than about half a second, the 
key will repeat until it 1s released. 

* Graphic symbols can be typed direct from the 
keyboard, this includes all 64 graphic 
symbols available from the TR5-80/SYSTEM 80 

* S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. 
This makes programming much easier as whole 
commands and statements can be recalled by 
typing shift and a letter key. 

* Because S-KEY allows graphics to be typed 
directly from the keyboard, animation and 
fast graphics are easily implemented by 
typing the appropriate graphics symbols 
directly into PRINT statements, 

* S-KEY allows the 'Jser to LIST a program with 
PRINT statements containing graphics, 
properly. S-KEY does this by intercepting 
the LIST routine when necessary. 

* S-KEY allows the user to list an updated 
list of the shift key entries to the video 
display or line printer. 

* S-KEY can be disabled and enabled when 
required. This allows other routines which 
take control of the keyboard to run with 
S-KEY as well. 



Each cassette 
versions and 
documentation. 



has TRS-80, DISK and SYSTEM 80 
comes with comprehensive 



S19.95 plus 50c. p&p 



** EDUCATIONAL ** 

RPN CALCULATOR (L2/16K & 32K) $14.95+50cp&p 

Give your computer the power of a $650 reverse 
polish notation calculator with 45 functions 
and selectable accuracy of 8 or 16 digits. The 
main stack and registers are continuously 
displayed whilst the menu is always instantly 
accessible without disturbing any calculations 
or register values. The cassette comes with 
both the 16K and 32K versions, the latter 
giving you the additional power of a 
programmable calculator. Comes with a very 
comprehensive 15 page manual, which includes 
instructions to load and modify the 32K 
programmable version to run in 16K. Whether 
for business or pleasure, this package will 
prove invaluable, and turn your '80 into a very 
powerful instrument. 

rOUCHTYPE [L2/4K) $19.95 + 50c. p&p. 
An interactive, 22 lesson typing course which 
uses the computer's keyboard and screen to 
teach you to type rapidly and accurately and, a 
massive cassette data dump to control your 
progress. The computer checks for accuracy, 
and sets timed exercises to check your 
progress. If you have to look at each key 
before you press it, or only use two fingers, 
then this program, plus a little perseverance, 
will do some amazing things to your typing 
speed. 

** GAMES ** 
U BOAT $7.50 plus 50c. p&6p. 

Real time simulation at its best! Comes with 
working sonar-screen and periscope, a full rack 
of torpedoes, plenty of targets, working fuel 
and battery meters, helpful Mothership for 
high-seas reprovisioning and even has emergency 
radio for that terrible moment when the depth 
charges put your crew at risk. Requires Level 
II/16K. 

SPACE INVADERS $7.50 plus 50c. p&p. 
Much improved version of this arcade favourite 
with redesigned laser and cannon blasts, 
high-speed cannon, 50 roving drone targets, 10 
motherships and heaps of fun for all. Level II 
with 4K and 16K versions on this cassette. 



,1 and vol .2. 



$7.50 ea. plus 50c. 



BMON by Edwin Paay 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 

L2/16-48K 

Our own personnel refuse to write BASIC without 

first loading this amazing machine language 

utility program into high memory! BMON 

Renumbers; Displays BASIC programs on the 

screen while they are Stilt loading; tells you 

the memory locations of the program just 

loaded; lets you stop a load part-way through; 

merges two programs, with automatic renumbering 

of the second so as to prevent any clashes of 

line numbers; recovers your program even though 

you did type NEW: makes one program invisible 

while you work on a second (saves hours of 

cassette time!); lists all the variables used 

in the program; makes SYSTEM tapes; lets you 

Edit memory directly., .the list goes on and on. 

Cassette comes with 16K, 32K and 48K versions, 

ready to load. Can anyone affort NOT to have 

BMON? 

***** LNW RESEARCH EXPANSION INTERFACE BOARDS - $79.95 + $2.00 p&p ***** 

These are the Expansion interface boards featured in the constructional article in September's 

MICRO-80. They are the basis for a high quality, reliable expansion interface for the TRS-80 

(or the SYSTEM 80 via out SYSPAND 80 adaptor). Initially we are offering the boards with their 

comprehensive instruction manuals. Shortly we will offer modular kits of components and fully 

biult up and tested units. Now in stock but hurry, the orders are pouring in. 



MMM- vol 
p&p. 

Two, three-game cassettes from that master of 
TRS-80 graphics, Charlie Bartlett. Vol.1 
brings you INDY 500, an exciting road race that 
gets faster and faster the longer you play, 
SUBHUNT in which your warship blows up 
unfortunate little submarines all over the 
place, and KNIEVEL (as in motorcycle, ramp and 
buses). 

Vol.2 (not System 80 compatible) contains* 
TANK, a two player battle of speed and skill, 
THIEF (steal an old man's hoard of loot then 
escape from the labyrinth before he gets you), 
and SHOOTOUT (a Mexican style high-noon for 
two) . 
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SNAKE by H. Svensdotter ... 4K/L1 

Once you type this game into your '80, make sure you have a whole day to spare. To start wit^ T the 
board is cleared, this will take about five seconds. Straight away you'll see displayed Ofl the 
screen (SPACE) CLOCKWISE DIRECTION CHANGE and under that ( > COUNTER-CLOCKWISE DIRECTION CHANGE, 
you're probably thinking to yourself, how can I move anywhere on the board with only two controls 
and stay sane at the same time. You'll probably want to put your foot through the screen tostart 
with but keep trying, you'll have more fun remembering which key makes the snake go in what 
direction than using your '80 for football practice. 

The game sterts by drawing the outline of the board or the screen then the snake appears in the 
form of astring of "S's" and starts moving {left to right). As the game proceeds, the snake 
gradually gets longer. At first it moves slowly, which gives you a tittle time to get used to the 
controls. The pace will gradually increase until you find it impossibleto press the right key. 
This snake's favourite food is frogs' legs (with the frogs still attached). You score 10 points 
each time the snake eats a frog, done by going over the top of one of the Fs on the board. At line 
90 you'll see among other things F.Z=64TO575:A(Z)=0:N.Z this is the part of the program which sets 
all board positions from 64 to 575 to 0. The arrays from A( 641 to A ( 5 7 5 ) are given the value of 
(for more information on arrays see Chapter 21 of your Level I Users' Manual). The twolines which 

draw the board are 100 and 140. In these two lines you'll see ;G0S.400:. .. ., this sub-routine 

puts the borderon the screen and gives the arrays at those locations the value of 9, so your '80 
can see where the border is. Line 210 prints the next S, increments to the next position, 
gradually speeds up the snake, takes away an S from the tail and decides when and where the next 
frog will appear on the board. SUB 300 is the part of this program which takes away the S, done by 
PRINTING AT R; (P. AT P; puts the cursor between the two graphics blocks at the bottom of the 
board, which helps the Level I simulate the inkey function found in Level II machines); the rest of 
this line sets the array behind the tail back to after the S is taken away and then decrements T 
(counts backwards) which is the timing loop used to control game speed. Line 330 decides if a frog 
is to appear and then prints an F on the board. At 220 if POINT(X.Y) and POINT (X+3.Y) are turned 
on and the next position that the snake is to move to equals 0, it gives the array A(S) a value of 
M (next position) and jumps back to line 210. 

(SNAKE for Level II machines was published in MICRO-80 Issue 1, December 1979) 



1 REM SNAKE FOR LEVEL 1 MACHINES 

2 REM BY - MICHAEL SVENSDOTTER 

3 REM 

4 REM COPYRIGHT - MICRO-B0 NOVEMBER 1980 

5 REM THE INTERNATIONAL MAGAZINE FOR ' 80 USERS 
5 REM PO BOX 213 GOODWOOD, SOUTH AUSTRALIA S034 
10 C. 

70 P.AT458, "< SPACE > CLOCKWISE BIRECTION CHANGE 

B0 P.T.t 10); ■<]> COUNTER-CLOCKWISE DIRETION CHANGE 

S0 P.AT0,"BORRD IS BEING CLEARED" : F. Z-64T057S: A( Z )-=0: N. Z 

100 C. :F.B-0TO577S.S77:F.Z=BTOB+62S.2:GOS.400;ACZ+1)-9:N.Z:N.B 

140 F,B-127TO64S.-G3:F.Z-BTOB+448S.64:GOS.400:N.Z:N.B 

150 X-123:Y-30:F=702:S-2B7:R=S:T-400:E-0=M-2:AtS>-2 

200 S.CX,Y):S.(X+3,Y) 

210 P. ATS, ■S*;ATP,:S=S+M:F.Z-0TOT:N.Z:IFR.C2)-1GOS.300 

220 IFCP.(X,Y))«CP,CX+3,Y))*CfltS)=0)ACS)-M:G.210 

230 IF(P.(X,Y)-0)+CP.(X+3,Y)=0)GOS.S00:ACS)-M:G.200 

240 IFAfS)-BAtS)-M:E=E+ia:p.fiT0, "SCORE -■ ;E; ATP, : G. 200 

258 P.AT704, 

260 IFAtS)-M«(-l>P.-SSLOW DOWN YOUR FINGERSS' :G.290 

270 IFACS)=9P. "YQU'UE HIT A WALL' :G. 290 

280 P. "THE SSNAKE HAS5 SSTOPED 

290 I.-PRESSS ENTER" ; A* :G. 10 

380 P. ATR; ATP, :N-A( R ): At R )=0: R=R+N: IFT>8T-T-3 

330 F-RND(287)»2+I : IFC A(F)-B>*CR. <S)=i WC F )«8:P. RTF, "F" ; ATP 

350 RET. 

400 ACZ)-9:P.ATZ, ••-;:RET. 

500 P.ATP;:S-S-M;IFP,(X+3,Y)G.550 

510 IFM-2G.B08 

520 IFW--2G.G10 

530 IFM-64G.G30 

540 G.G20 

550 IFT1— 2G.600 

560 IFM-2G.G10 

570 IFM-64G.62B 

5B0 G.630 

600 M-64:RET. 

610 M— 64: RET, 

620 M-2.-RET. 

630 M— 2: RET. 
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***** LEVEL II PROGRAMS ***** 
DRAW II by John Peschar LI 1/4-1 6K 

This is a much better version of the Tandy Draw program, it has all the features of the original 
plus lots more. The program will run in a 4K machine if the instructions are left out, hence the 
two separate listings. 
Here is a summary of the instructions. 

The ARROW keys set the path taken by the cursor (for as long as the key is held down). 

SHIFT ARROW resets the path taken by the cursor (for as long as the key is held down). 

SHIFT S Saves graphics onto tape. 

SHIFT L Loads graphics from tape. 

SHIFT N Creates negative of graphics. 

SHIFT C Same function as the CLEAR key. 

The to 9 keys are used to enter a number into the increment counter. (If you enter a number and 

then direct the cursor, it will set or reset for that length. This is the increment function.) 

SHIFT R Resets increment counter to 0. 

SHIFT D Displays increment value and the X and V coordinates of the cursor. Display is held for 

as long as the key is pressed. 

The programs have been numbered so that 16K users may merge the two programs together if they 

wish. 



1 - - - * DRAW II + = - 

2 ' JOHN PESCHfif? 

3 ' 134 MAIN RD. MARKS POINT 2280 N.S.W. 

4 ' TEL. C049) 453G16 

5 ' COPYRIGHT JUHE 1380 

10 CLS:CLEAR50B:DEFINTX,Y.B-Z:DEFSTRA:SETCX,Y):U-14400 

20 H=H+l:A=INKEY3:IFA=--flNDH>4THENSETCX t Y):H-0:GOTOZ0ELSEIFR-""THENRESETCX ) Y:i:Grj 

TO20 

30 F=2:B=RSC(R>:IFB>47RNDB<5BRNDLEN(fll ) + !< 4. Rl=fli*fi: OUflLCAl ) i IF0127, C=127: GOTO 

2GELSEGOTO20 

40 I EB=9 10RB= 1 0OPB=3QRB=a , F=8F_L5E IFB=260RB=270RB=240R9-2S . F- 1 

50 IFF=0RNDC=»0THEN210EL5EIFF-0THEN1B0 

60 IFF=1AMDO0THEN200ELSEIFF=1THEN30 

70 IFB-:0eTHEN500ELSEIFB=lI5THEN408ELSEIFB=39THENCXSELSEIFB=li0rHEH600ELSEIFB=ltl 

0THEN300ELSEIFB=114THENRI=- " :C=0 

80 GQTO20 

90 FORD*/i-lTOC:SET<X,YJrRESETtX,¥}:GOSUBlt8:SETfX,Y):HEXT:Rl"*-:C-0:GOT05O 

L00 F0RD^=1T0C:X1=X: YI=Y: RESETCX, Y ) : GO5UB110: SETC X, Y 1 : SETt XI . Yl ) : NEXT: FU-" ' : C=0J 

GOTO20 

110 IF( B-270RB-91 TANDY- 1 >=0, Y»Y- I 

120 IPC B=26QRB=10 >RNDY + 1<=47, Y=Y+1 

130 IFC B-240RB=B )RNDX-1 >=0, X-X- I 

140 rF(B=2S0RB=9)ANDX+l<=127,X=X+l 

IB0 A=INKEY«: IFFK > " "THEND=C: RETURflFLSERETURM 

200 E=0 : SETC X , Y ) : RESETC X , Y ) : GOSUB220: SETC X, Y ) : IFE-0, 20ELSE200 

210 E=0:Xl=X:Yl=Y:RESETCX,Y):GOSUB2Z0:SETtX,Y):SETC XI, Yl J : IFE-0THEN20ELSE2 10 

220 IFC PEEKt U JRNDB )=BftNDY-l >-0, Y-Y-l : E-l 

230 IFC PEEKC U )RND16 ) =1 BANDY U( =47, Y=Y+1 : E=l 

240 IFC PEEKt U JAND32 )=32RNDX- 1 >=0, X=X- 1 : E=l 

250 IFC PEEKC U )ANDG4 )=64ANDX+1< =127 , X=X+ 1 : E=l : RETURNELSERETURN 

300 SET ( X , Y ) : FORTX- I 5360TO 15381 : R2-R2+CI (RSt PEEK C TX ) ) : NEXT 

310 IFC PEEKC 14337 1RND1E )-lE, PRINT®0, " INC="C"X='X" V=" Y; : GOTO310ELSEFRINTS>0, R2; : R2 

=" ■ :GOTOZ0 

400 SETC X,YJ:D-153B0: XI -PEEK C 15423 ): X2-PEEKC 1S422 >:PRINT*- 1 ,X, Y, XI, X2 

410 R3=" :FORZ«DT0163B3:B=FEEKCZ)-11S; IFB< I0NEXT: R4 = " ' : GOTO440 

420 R6=STRSC Z - 15360 ) : RB-RIGHT*C RB , LENC R6 ) - 1 ) s RS-STRSC B ) : R5-RIGHT*C R5, LENC R5 ) -1 ) : 

IFLENCR6>=4,R6='X**RIGHT*CflB,2> 

430 IFLENtRBK3 I RG-"0" + RS:GOTO430ELSER4=RG+R5 

440 R3=R3tA4: IFLENC A3 )-2450RR4= - * THEN450ELSENEXT : R4=* * SGOTQ440 

450 PRINT*- 1, A3: D-Z + 1:IFR4=" , PRINT*- 1, *END" : GOTO20ELSE410 

500 CLS:INPUT#-1.X,Y,X1,X2 

510 INPUT#-I,R3:IFA3=-END*THENPQKE15423,Xl:POKEi5422,XZ:GOTO20 

520 FOR2-lTOLENCR3)STEP5:R7-r1ID*CR3,Z,3);IFLEFT»<ft7,13--X- ) R7="10-+RIGHT*CR7.2) 

530 POKEUflLf R7 ) *1S3G0, UALC MID«r A3, Z+3 , 2 ) )+l 13: NEXT : GOTO510 

600 FORI*i=lS360TO16383: ri=PEEK( IX):1FJ%< 128POKEI5(, 191 : NEXTISi: GOTO20ELSEPQKEI3, 31 

9- J*: NEXT IS: GOT 020 

INSTRUCTIONS FOLLOW 
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700 CLS:PRINTTRB( IB)"- = * DRAW II * = - 

DRAW II ALLOWS THE OPERATOR TO CREATE 6RAHPIC IMAGES ON THE 

SCREEN, AND TO SRUE THEM ON CASSETTE OR TO LOAD GRAPHICS FROM 

THE: TfiPE BflcK ONTO THE SCREEN AND CONTINUE ' DRAWING' FROM WHERE IT WAS LEFT OFF. 

710 PRINT "DRAWING IS ACCOMPLISHED BY DIRECTING A FLASHING CURSOR 

IN THE DESIRED DIRECTION WITH THE USE OF THE FOUR ARROW KEYS. 

THE FOUR ARROW KEYS ON THIER OWN WILL 'SET' THE CURSORS PATH, 

WHEREAS <SHIFT ARROW> WILL ' RESET' THE CURSORS PATH- 

720 PRINT 'THERE ARE ALSO SIX SPECIAL FUNCTION KEYS WHICH CAN HELP YOU 

TO SAUE TIME 

HIT ANY KEY WHEN READY 
730 IFINKEYS=" "THEN730ELSECLS: PRINT' 
< SHIFT XL> - LOADS GRAPHICS FROM TAPE. 

CURSOR WILL START FLASHING WHEN LOADING 15 FINI5HED<SHIFTX5> = SAO 
ES GRAPHICS ONTO TAPE, 

CURSOR WILL START FLASHING WHEN SAUING IS FINISHED 
740 PRINT ■< SHIFT XC> = SAME AS THE < CLEAR > KEY. 

<SHIFTXN> = CREATES NEGATIVE OF DISPLAYED GRAPHICS. 

THIS COMMAND CHANGES ALL BLACK AREAS TO WHITE 

AND UISA-UERSA- 
750 PRINT" 

IF YOU TYPE IN A NUMBER USING THE TO 3 KEYS AND THEN DIRECT 
THE CURSOR WITH THE ARROW KEYS, IT WILL 'SET' COR 'RESET' ) 
FOR THAT LENGHT AS INDICATED. THIS IS THE INCREMENT FUNCTION. 

HIT ANY KEY WHEN READY 
760 IFINKEY«=" "THEN760EL5ECLS: PRINT" 
THERE ARE TWO KEYS TO TO ATD YOU IN OPERATING THE 
INCREMENT FUNCTION. THESE ARE 

<SHIFTXR> <* RESETS THE INCREMENT COUNTER TO ZERO 

770 PRINT" 

< SHIFT XD> = WHEN THIS KEY IS PRESSED (AND HELD DOWN), THE 

UALUE CURRENTLY IN THE INCREMENT COUNTER AND 

THE X AND Y COORDINATES OF THE CURSOR WILL BE 
7S0 PRINT" DISPLAYED IN THE TOP LEFT HAND CORNER OF THE 

SCREEN. WHEN THE <D> KEY IS RELEASED ANY 

GRAPHICS THAT WERE DESTROYED WILL BE RESTORED. 

HIT ANY KEY WHEN READY 
790 IF1NKEYS=" "THEN790ELSECLS: PRINT"* NOTE * 

IF YOU TRY TO INPUT A UALUE GREATER THAN 127 INTO 
THE INCREMENT COUNTER, IT WILL BE SET TO 1Z7 AND MUST BE RESET 

WITH THE <SHIFTXR> COMMAND. 
900 PRINT- 
IE YOU WISH TO STOP THE INCREMENT MOVEMENT OF THE 

CURSOR THEN HIT ANY KEY WHILE THE CURSOR IS IN MOTION AND IT 

WILL STOP AND THE INCREMENT COUNTER WILL BE 
RESET TO ZERO. 
810 PRINT" 

THATS ALL THE INSTRUCTIONS 
HAPPY DRAWING 

8Z0 IFINKEYS---THEN820 

- 0000000000 - 
STRING EDITOR by C.E. Kendall LII/4K 

Many users must have wished that the program editor in Level 2 BASIC could be used on text much 
like the program being used to write this, (ELECTRIC PENCIL). Well here is a demonstration program 
that gives you some of the functions of a proper text editer. In the demonstration program a 
string is entered from the keyboard. It is then displayed with a blinking cursor to indicate the 
position at which the correction will take place. 

Editing functions are called by using the arrow keys (ESC, CTRL Si BACK SPACE on SYSTEM 80/VIDE0 
GENIE) so no printing characters are lost. The cursor is moved one space to the left or the right 
by using the left and right arrow keys (right movement not available on an unmodified SYSTEM 
80/VIDE0 GENIE) . 

To change a character, move the cursor to the desired position and type in the correct character 
(YOU DO NOT NEED TO PRESS THE ENTER/NEWLINE KEY). 

To insert new text, position the cursor one character past the point at which the insert is to 
start, press SHIFT and the up arrow/ESC together, then the new characters and "ENTER/NEWLINE". 
For deletion, the cursor is positioned, SHIFT and down arrow/CTRL are pressed together then the 
number of characters to be deleted and "ENTER/NEWLINE". 
Instructions are included in the program as well. 
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IB 'PROGRAM TO DEMONSTRATE: HN EDITOR FOR STRING TEXTS 
BY C.E.KENDALL 

RMB 43. MITCHELL RD. , WAGGA WAGGA, NSW 2650 
HUG. 19B0 
20 CLS: CLEAR 1000: OEFINT A-P.R-2: PRINT TABC 15 ) 'EDITOR DEMONSTRATION*: PRINT: 
PRINT * 960, "NOTE - <E> MEANS PRESS ENTER' ;: PRINT « 2S6.";: INPUT "TYPE 1 FOR 

INSTRUCTIONS. OTHERWISE <E> ONLY'JQ.: IF 0-0 THEN 70 
30 PRINT »64, 'USE '; CHRSCS3);" OR '; CHR*t94>;' TO MOUE CURSOR TO LEFT OR RIGH 
T (SHIFT ARROW GIUES B SPACES SHIFT J. 

TO ALTER A CHARACTER, TYPE IN THE NEW ONE. 

TO INTERPOLATE, SET CURSOR TO THE CHAR. AFTER THE POINT OF 

INSERTION,'; 

48 PRINT" TYPE SHIFT C AND THE NEW NATTER, THEN <o>.' 

50 PRINT "TO ADD TO THE BEGINNING, SET CURSOR AT 1ST CHARACTER; TO ADD 

TO END, SET CURSOR ONE SPACE BEYOND THE LAST * USE SHIFT ' ;CHRI( 91 ) ; * . 

IF INTERPOLATION STARTS WITH A SPACE, USE ■;CHR*C34};' BEFORE IT.' 

S0 PRINT: PR INT 'TO DELETE, TYPE SHIFT ' ; CHRSC 92 ) ; ' THEN NO. OF CHAR. TO DELETE & 

<E>. 

WHEN EDITING FINISHED, TYPE •;CHRi(92);' .': INPUT" <E>";» 

70 CLS: INPUT 'ENTER STRING TO BE EDITED' I A»: CLS: PRINT Af: PRINT 9 12B.A*; ST 

RINGS(LEN(AS>,24); : Q=.S 

80 PRINT CHRf(14.5+QJ;: Q=-Q: FOR X-0 TO 40: NEXT: Z«-INKEY«: IFZ*=* ' THEN80 

' BLINKING CURSOR - CHANGE X LIMIT TO ALTER SPEED 

90 Z-ASCCZS): P=POSCB> 

100 IF Z-26 THEN 150 ELSE IF Z^27 THEN 140 ELSE IF Z=T0 THEN 160 

110 IF 2=3 THEN PRINT CHRK2S); ELSE IF Z-25 THEN PRINT STRING*< 8, 25 ); ELSE IF Z 

-B THEN PRINT CHR*C24); ELSE IF 2-24 THEN PRINT STRINGtCB, 24 ); ELSE R-l: GOTO 13 

' CURSOR MOUEMENT 

120 GOT089 

130 B*-LEFT*CAS,P)+Zf+RIGHTSCAS,LENtA*)-P-R): At=B«: B«= ' * : PRINT 9 128, CHRJC30 

); AS: STRING*CLEN( ASJ-P,Z4); : Q-.5: GOTO 80 'REBUILD THE STRING 

140 PRINT # 768, CHRSC30);: INPUT ?%z R=0: GOTO 130 'INTERPOLATE 

150 PRINT # 768. CHRSO0);: INPUT R: Z*-'*: GOTO 130 'DELETE 

160 PRINT: PRINT 'EDITING COMPLETED' 



0000000000 - 



MIGHTY MORMAR by Charlie Bartlett L2/1SK 

Oh! ray Mighty Mormar, you were on your way to our home planet of Hartley with Princess Aleaya on 

board when the evil General Vagg's Battle Cruiser caught us with a tractor beam and brought us 

aboard. He then disarmed you, put out your eyes, took the princess and left you for dead in your 

starship, which he has drained of fuel and left sitting on the flight deck of his battle cruiser. 

But, my Mighty Mormar he did not see me, your little Robot , stowed away in the corner and he did 

not count on the courage of you my master, who even though unarmed and blinded will use me as your 

eyes to rescue the Princess, Being a small robot I only understand a few words so you may need to 

ask your questions in a different way if I do not understand. We will be rewarded with points for 

anything we steal along the way and together we will prevent the evil General Vagg from destroying 

our home planet of Hartley and once again prove that evil does not PAAY. 

(If you really must cheat, look- at the program data lines to see which words I understand.) 

(Please note, Messrs Vagg, Hartley and Paay are contemplating legal proceedings citing defamation of 

characters (ASCII), any reader who uses this program is likely to be regarded as an accomplice - 

Ed,) 

1 CLS: PRINT' MIGHTY MORMAR" : CLEHR200: RANDOM: DEF1NTA-Z: GOSUB230: 

LC-Z : SL=64 : BL=4 : GF-50 : RU-1G39S : G0T0182 

6 IFTC<2SORRNDCGFK >1THEN1G 

7 IFTC=300GF«20 

8 I FL C< 30RLC=90RLC=260RLC=3G0RLC=«37THEN IG 

9 IFL026ANDLC01THEN1G 
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10 PRINT "MORMAR. RN RRMED URGGIRN JUST WRLKED IN. * 

11 G0SUB2il:IFUBO120RN0< >1STHEN104 

12 X=13:GOSU8224:IFYO-1THEN104 

13 IFBL=0CLS:PRINT - I' M OUT OF AMMUNITION. *: PRINT: GOTO105 

14 PRINT'ZZZRP! NO MORE GURRD. ' 

15 BL=BL-1:IFBL-0PRINT-I' M OUT OF AMMUNITION. " 

16 IFMDOTCTHEN13 

17 X-22:G0SUB224:IFY<>-1THEN13 

18 PRINT'YOUR HAMBURGER IS COLD. ' 
13 G0SUB211:TC=TC+1 

20 IFUB=0ANDNO=0THEN21ELSE23 

21 PRINT"I DON'T KNOW HOW TO DO THRT.":GOTOB 

22 PRINT-NOTHING HRPPENED. ": GOTOG 

23 IFUB>10RN0>7THEN3S 

24 IFNO=0THEN21 

25 IFDS(LC,NO-1D=0PRINT'I CRN' T GO THAT WRY ! « : GOT06 

28 IFDRRNDDS(LC,NO-I)>2RNDDS(LC,NO-1XGPRINT'I CRN' T GO THAT WRY. FLIGHT DECK D 

OORS RRE OPEN. 

NO RIR ! ! ! ":GOT06 

27 IFNO=3ANDLC=31RNDNGTDJPRINTM0S: GOTOG 

28 IFLC=35flNDDSCLC,N0-l)=3SRNB0B(21, 1 )<>0PRINT'THE ROBOT WON'T LET ME THROUGH. - : 
GOTOB 

23 IFLC=17RND0B( 13, 1 J-17THEN104 
30 IFLC=3RNDOB< 5, 1 )=9THEN104 
311 FLO90RLO 1 7THENHE3 f LC ) = ' " 

32 LC=DSCLC,NO-l ) 

33 IFLC=34HE*(LC)=" " 

34 IFLC=2ETHEN204 

35 GOT0182 

3G IFUB=3GQT01B2 

37 IF0BO2THEN53 

38 IFNO=0PRINT-I DON'T KNOW WHRT R " ; CHRSC 34 ) ; NOSC ) ; CHRSC 34 ); " IS.": GOTOG 
38 IFCR>SPRINT"I CRN' T CRRRY RNY MORE. 

HINT : DROP SOMETHING. 'i GOTOB 

40 FORI=1TOLO:IFOBCI,0)=NOXTHEN41ELSENEXTI:GOTG21 

41 IF0B(I,13=-1PRINT'I'M RLRERDY CARRYING IT. *: GOTOB 

42 IFOBCI.nOLCPRINTT. DON'T SEE IT. - : GOTOG 

43 IFNO< >37THEN4S 

44 X=13:GOSUB224:IFYO-1PRINT-I DON'T HAVE fl BLASTER TO PUT IT IN.':GOT06 

45 BL=4:OBCI,l )=0:PRINT"MY 8LRSTER' S RELOADED. ": FORI-1T01 ! NEXTI : GOTOG 
4G IFNO=150RNO=250RNO=34PRINT"HE LOOKS PRETTY HERN TO ME. - :GOTOB 

47 CR=CR+l:QB< I, 1 )-- 1 : PRINT'O. K. * : FORI=1T01 : NEXT! 

48 IFN0=14RNDN0TCMPRINT"A UOICE SRYS: "; CHRSC 34 ); "SESAME" ; CHR*C 34 );'.': CM=-1 
43 IFNO=22ANEMD=0THENMD=TC+50 

58 IFN0=12HEJC2)=" • 

51 IFNO=13HES(7)="" 

52 G0T06 

53 IF0BO4THENS8 

54 PRINT"!* M CARRYING:" 

55 K-0:FORI-1TOLO:IFOBCI,1)=-1PRINTOBSCI):K-1 
5G NEXTI: IFK=0PRINT" NOTHING" 

57 PRINT: GOTOG 

58 IFUBO5THENS9ELSEGOSUB2Z0: GOTOG 

53 IFUB< >GTHEN67 
B0 IFNO=0THEN38 

81 IFLC=2PRINT' THERE' 5 NO ROOM IN HERE. ": GOTOG 

B2 IC=0:FORI=1TOLO: IFOB( I , 1 )-LCTHENIC=IC+l 

63 NEXTI: IFI012PRINT" THERE' 5 NOT ENOUGH ROOM. GET RID OF SOMETHING. ": GOTOG 

54 FORI=0TOLO: IFOBC I, )=NQXTHENS5ELSENEXTI : G0TO21 
85 IFOBC I, IJO-IPRINT'1' M NOT CARRYING IT.": GOTOB 

GG CR=CR-1 : QBC 1 , 1 )=LC: PRINT "0. K. " ! FORI=iT01 i NEXT : GOT06 

G7 IFOB< >7THENG3 

68 IFHESCLC) = "THENPRINT"HOW AM I SUPPOSED TO KNOW WHRT TO DO ?" : GOTOEELSEPRINTH 

Et( LC } : GOTOG 

G9 IFUBOBTHENai 

70 PRINT'PRESS (ENTER) WHEN READY TO : RECORD : ' : GOSUB22G: FORI=0TOLO: PRINT#-1, OB 

CI,0),OBCI,i),OB<I,2):NEXT:PRINT*-I,TB,TC,CM:PRINT#-l.DR,BL,MD;PRINT*-l,GF,DJ,eR 

: PRINT*- l.LC: PRINT "O.K. ": GOTOB 

81 IFOB< >3THEN33 

82 PRINT-PRESS CENTER) WHEN RERDY TO * RERD TRPE *■ : GOSUB226:FORI=0TQLO: INPUT+-1 
, OBC 1,0), OBC I,i>, OBC I, 2): NEXT: INPUT*- 1,TB,TC,CN: INPUT*- 1,DR,8L,MD:INPUT*-1,GF,DJ 
, CR : INPUT* - 1 , LC : GOTO 182 

83 IEUB< >10THEN34ELSECLS: J-0:GOTO138 
34 IFOBO11THENI0H 
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95 IFNOO10THENZ1 

96 IFLC< >ZRNDLC<>11PRINT"WHAT BUTTON ,': GOTOB 

97 I FLC= 1 1 ANDNOTTBTHEN TB= - 1 : PR INTN2S : GOT06 

98 I FLC- 1 1 RNDTBTHENTB-0 1 PR INTN3* : GOTOS 

99 X=12;GOSUB224: IFY01THEN22 

100 X=24:G0SUB2Z4:IFYOlTHEN22 

101 IFNOTTBPRINTN3*:GOT022 

102 IFNOTDRPRINTN4S:GQT022 

103 G0T0197 

104 CLS:PRINT"H E L P • ! ! ■: PRINT 

IBS PRINT "UAGG SOLDIERS ARE EUERYWHERE. I' UE BEEN CAPTURED. ' 

106 PRINT" I'M NOW R PRISONER. WOE IS HE... 

107 GOTO201 

108 IFUBC >12ORNO=0THEN1 18 

108 IFBL=0PRINT'BUT I DON'T HAYE ANY AMMUNITION LEFT. " : GOT06 

110 X=13:GOSUB224:IFYO-1PRINT'BUT I'M NOT CRRRYING A BLRSTER . ": GOTOS 

111 X=NO:GOSUB224."IFY=--lPRINT"I CRN' T. V H HOLDING IT.':GOTOS 

112 IFNO-34PRINT'ZZZRP! " : BL=BL-1 :GOT06 

113 IFYOLCPRINT'I DON'T SEE IT.": GOTOG 

114 FORI-1TOLO: IFOBC 1 , )-NOXTHEN115ELSENEXT:GOT021 

115 OBC I,1)=0:FORI=1TG1:NEXT:PRINT"ZZZAPM • THE ■;NO»(NO);' UAPORIZED. " 

116 BL«BL-1:IFBL=0PRINT"I* M OUT OF AMMUNITION.' 

117 GOTOG 

113 IFUB013THEN12G 

119 IFNO=0PRINT"SAY WHAT?": GOTOS 

120 X-14:G0SUBZ24 

121 IFYO-10RN0O13FRINT"0.K. " ; NOf C NO J : GOTOB 

122 IFDRGOTOZZ 

123 DR= - 1 : PRINT " A UOICE COMES OVER THE P.fl. SYSTEM AND SAYS ! 
OPENING FLIGHT BECK DOORS 

124 IFLC>2ANDLC<EPRINT" 

YIPS' ! ! THERE' S NO RIR t i ! CRORK. . . * ; END 

125 GOTOG 

126 IFUB014THEN143 

127 DCUIG<>20RNDNQO16RNDNOOI1ANDNO< >33THEN21 

128 IFNO=20THEN137 
123 IFN0O1ETHEN133 

130 IFOBC 6,1)— lPRINT'SORRY. I CRNT READ MAPS"! GOTOS 

131 IFOBC G, U-LCPRINT'TRY. .. GET MRP. ": GOTOG 

132 PRINT'IT'S NOT HERE. ": GOTOS 

133 X=N0:6QSUB224: IFY< >LCRNDY<' >-lTHEN132 

134 IFN0«1IPRINT"IT SAYS: » NEEDS TURBO <<" 

135 IFN0=33PRINT"IT SAYS: >> OUT OF ORDER <<" 

136 GOTOS 

137 IFLC013PRINT-I DON'T SEE ANY.":GOTOG 
13B PRINT: PRINT "IT SAYS ON THE WALL," 

139 PRINT"» YOUR MOTHER'S GOT A BIG NOSE « m 

140 PRINT" >> KILROY MADE IT HERE.CC 

141 PRINT">> SAY SECURITY <<" 

142 GOTOS 

143 IFUBO15THEN150 

144 IFNO=0PRINT'WHAT' S A *; NO*( );"?": GOTOS 

145 IFNO<>22PRINT"D0N' T BE DAFT.": GOTOS 

14G X=2Z:GOSUB2Z4:IFYO-1PRINT"I'M NOT HOLDING IT.":GOTOG 

147 FORI«1TOLO:IFOBCI,0}=22THEN148ELSENEXTI:PRINT"I DON'T KNOW WHERE IT IS.": GOT 
0G 

148 OBC 1,1 >=0: PR INT "CHUMP - CHUMP. HUMMM, GOOD." 
143 FORI-lT01=NEXT:GOTOS 

150 IFUB< >1G0RN0< >230RLC< >16THEN154 

151 X-23 : G0SUB224 : IFY< >- 1PRINTM 1 S : G0TO6 

152 OSC 11,1)=0:OB( 14,1 )-lG:CR-CR- 1 : PRINTM2* 

153 GOTOG 

154 IFUBO180RN0O36THEN15B 

155 IFNO< >360RLC< >31THEN21 

15G X- 17 :GOSUB224:IFYO-1PRINTM3*: GOTOS 
157 HE»C 31 >=* * : DJ-- 1 ! PRINTM4S:G0T06 
15B IFUB< >I9QRNQ=0THEN163 
153 IFN0O34PRINT-THAT' S STUPID !': GOTOS 

160 IFLC035PRINTMSS: GOTOS 

161 X=22:G0SUBZZ4:IFr<>lPRINTMB»: GOTOG 
1G2 IFNQ=35PRINTM7»: GOTOG 

IS3 IFNOf >34PRINTN0*C ) : MBS: GOTOG 
IG4 IFTOMDPRINTMS*: GOTOG 
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IBS FORI=1TOLO: IFOBC 1 , )=34THEN166ELSENEXTI : G0T021 

1BG K=I : FORI-1TOLO: IFOBl 1 . )=22THEme7EL5ENEXTI = GOT021 

1B7 PRINTN0*:H£*C35> = " 

IBB OBCK. 1 >=0:OB( I, 1 >=0: F0RI=1T01 : NEXTI :G0T08 

163 IFUB< M7THEN171 

170 PRINTNOSC0):GQTO6 

171 IFUB< >20THEN1S0 

172 IFNO=0THEN2I 

173 X=NO:G05UB2Z4:IFY--1PRINTT M CARRYING IT. THAT' S IMPOSSIBLE. ": GOTOS 

174 IFY=LCTHEN177 

175 IFNO< I1ORNO-19ORNO-Z0ORNO-30THEN21 

176 PRINT* I CAN'T HIT SOMETHING I CRN - T SEE.*=GOTOE 

177 IFN0-15QRN0-2S0RN0=34PRINT*r D RRTHER NOT. HE MIGHT HIT ME BACK?': G0T06 
17B IFN0=35PRINT " THAT' S NOT NICE!':GOT06 

179 G0T022 

180 IFUB021THENI81ELSEPRINT-I- M NOT STRONG ENOUGH TO KILL ANYTHING. *: GOTOB 
1B1 G0T021 

1B2 CLS:PRINTDS*(LC ):A*="" 

183 IFLC=35GF-10 

184 IFLC=7THEN190 

185 K=0:FORI-1TOLO:IFOBCI,1X>LCTHEN1BB 

186 IFK=0THENK-1: PRINT: PRINT"AROUND ME I SEE: " :A*=OB*( I ) : G0TO1BB 

1B7 IFLENC A*)+SH-ENCOB*0I )>>SLTHENPRIHTA*:A*-OB*( I JEL5EA*=A*+* "+OB*( I > 

188 NEXTI 

IBB IFfttO* *PRINTfl* 

190 PRINT: PR INT 'OBVIOUS DIRECTIONS ARE * i : K-0 

191 FORI=0FOS: IFDSf LC, I )=0THEN1B4 

192 IFK< >0PRINT*, 'i 

193 PRINTNO*(I+l); :K-1 

194 NEXTI 

1 95 I FK=0PR INT' UNKNOWN * ; 

196 PRINT'. ': GOTOB 

197 CLS:GOSUB220 

198 IFJ=0PRINT*WE HAVE FOILED OUR MISSION. THE FORCES OF PRINCESS ALEAYA WILL 
BE CONQUERED. 

■ 

138 IFJ=SCPRINT*WE RRE HEROS. 

THE FORCES OF PRINCESS ALEYEA WILL CONQUER THE EVIL UAGG SOLDIERS, AND FR 
EEDOM WILL PREVAIL ON OUR HOME PLANET OF HARTLEY AND THROUGHOUT THE GALAX 
Y THEY WILL SAY THAT EVIL DOES NOT PRAY. * 

200 IFJ>0ANDJXSCPRINT*WE HAVE HELPED THE FORCES OF PRINCESS RLEYER DEFEND THE 
GALRXY. LONG LIVE THE FORCES OF FREEDOM! 

201 PRINT 

202 INPUT" DO YOU WANT TO PLAY AGAIN CY OR N) * ; A*: A*=LEFT*( A*, 1) 

203 IFA*='Y"THEN2ELSEEND 

204 CLS:PRINT"A VOICE BOOMS OUT. * ; CHRSC 34 > J *WHO GOES THERE' ; CHR*< 34 ) 

205 GOSUB2I1 

206 IFVB< >130RN0< >30THEN104 
287 PRINTN1* 

208 GOSUB211 

209 X=31:G0SUB224: IFYO-1THEN104 

210 IFVB< > 1 70RN0< >3 1 THEN5575ELSE 1 82 

211 INPUT 'WHAT SHOULD I DO"; CMS 

212 UB*( )-* * : NOSt >-* " : UB=0: NO=0: IFLENCCM* )=0RETURN 

213 FORZL=1TOLENCCM*1:IFMID*CCMS,ZL,1 )<>• "THENUBSt )=UB»C )+MIO*( CM*. 2L, 1 > : NEXT 
ZL 

214 FORZL=lTOLV= IFUB*CZL K >* "RNDLEFT*[ UBf C ) , LENC UB*C ZL ) J )=UB*CZL >THENVB=ZL:GOTO 
21GELSENEXTZL 

215 VB=0:NO*(0)«UB*(0):GOTO217 

21 B IFLEN C V8*t )) + 1 >=LEN( CMt ) THENNO~0 : RETURN ELSEN OS ( )=R I GHT*C CMf . LEN( CM* 1-4- LEN 

c us*t g 3 ) > 

217 FORZL^ITOLN: IFNOSCZLX >* "RNDLEFTS(NOS< 0), LENC NOSCZL ) ) )-NO*< ZL >THENNO=ZL:GOTO 

219ELSENEXTZL 

218 NO=0: RETURN 

219 F0RZL=1T01:NEXTZL: RETURN 

220 J=0:FORI=iTOLO:IFOBCI.i)=ITHENJ-J+OB( 1.2) 

221 NEXTI: PR I NT "OUT OF A MAXIMUM OF* i SC{ "POINTS, YOU HRUE" i J; "POINTS. " 

222 IFJ=0PRINT"WE'RE NOT DOING TOO GOOD. * 

223 RETURN 

224 FOR2L-0TOLO: IFOBC ZL, )=XTHENY=OBC ZL, 1 ): GO T0225ELSENEXTZL : Y- - 99: RETURN 

225 FORZL=1T01:NEXTZL: RETURN 
22B RS=INKEYS 

227 IFINKEYS-*"THEN227ELSERETURN 
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230 LU=21:DIMUB«tLU):UBtt 1 )="G0' : UBtt2 )='GET" :UBtt 3 )-"LOOK" : UBt( 4 ) = ' INOEN" : UBtC S 
)~'SC0RE':UB*f6)--'I]R0P':UBtt7) = *HELP*:UBStB)=*SAUE':UBtt9)=-L0AD':UBtt 1B) = 'QUIT' 
:UBtt 11)="PRES5" :UB«C 12)=-SH0OT":UB*C 13)=*5RY" : UBtt 14 )="READ " :UBtt IS )='ERT * : UB*( 
16>="CSRUE' 

231 UBIt 17)=-SH0W':UBtt 18)=-0PEN':UBt(lg)=-FEEB':MBtf 20)="HIT':UBtt21 )='KILL* 
-|C232 LN=37:DIMNOt(LN):NOtt D-'NORTH'iNOtf 2)='EA5T*:NOtt3)="50UTH':NOtf 4)='WEST':N 

Ott5)=-UP-:NOtt6)""DOWN':NOttl0)~'BUTTON-;MOttIl)=*TRG':NOtf 12)-'FUEL':N0tt 13)=* 
BLASTER ':NOtr 14 )-" COMMUNICATOR ":NQt( 15 )=*GURRD' :NOtt 16 )="MAP* : NOtC 17 )=" KEYS' *NO» 
t 1B)='NECKLRCE" 

233 NOfC 19)='SESAME':NOtt20)='GRAFFITI':NO*t21 )='CAPE' : NOtf 22 )- 'HAMBURGER- :NO*t2 
3)-*TAPE":NOtf 24)='TURB0':NO«t2S)="SCIENTIST':NO*C26)='PLRN5':N0tC27>=-5CHEMATIC 
':NOttZ8)="DEUICE':NOtt29)='GUN*:NO»C30)=-SECURITY':NOtf31)='I.D. * : NOtt 32 )="CRYS 
THLS* 

234 N0t(33)="5IGN':N0«t34)='R0B0T':NQSf 35)='PRINCESS':NOSt36)="B0QR-:NOtt37)='AM 
MUNI T ION " 

235 CL-37:DIMDSttCL):DSttl) = *I" M IN THE PASSENGER & STORAGE COMPARTMENT OF MY SP 
ACE SHIP. 

THERE'S AN EXIT HERE TO LEAUE THE SHIP. ' : DRTR2, 0, 0, 0, 0, 3: DStt 2 >-" I' M IN THE COCK 

PIT OF MY SPACESHIP. 

A LARGE RED BUTTON SAYS >> PRESS TO BLAST OFF < < ' : DRTR0, 0, 1 , 0, 0, 

23G DStt 3)=" I'M STRNDING NEXT TO MY SPACE SHIP WHICH IS LOCATED ON A 

HUGE FLIGHT DECK. ' :DATA1B, 0,4, 0. 1 , 0: DStt 4 )="I' M OUT ON THE FLIGHT DECK OF GENERA 

L 'JAGG'S BRTTLE CRUISER. ' : DRTA3, 5,4, 4 , 0,0: DStt S )=DSt( 4 ): DATR4 ,6,5. 4, 0,0 

237 DStt 6)=* I'M IN A HALLWAY. THERE ARE DOORS ON ALL SIDES. 

THE DOOR TO THE NORTH SRYS: >> CLOSED FOR THE DAY << * : DATA7, 0, 8, S, 0, 0: DStt 7 ) = * V 

M IN THE SUPPLY DEPOT. 

AROUND ME I SEE: 

ALL KINDS OF THINGS* : DHTR0, 0, G, 0, 0, 

238 DS*CB)=TM AT THE END OF ONE OF THE HALLWAYS. 

I CAN HEAR UOICES NEARBY. SOUNDS LIKE GUARDS. " : DATAS, 10, 0, 3, 0, 12: DStt 3 )-" I' M IN 
THE STRRTEGY PLANNING ROOM. ': DATA11 , 8,0, 0. 0.0: DStt 10 )=*I' M IN THE DECONTAMINRTIO 
N AREA. -:DATR0, 14, 0.8.0,0 

239 DStt 11 )=*THIS AREA IS THE TRACTOR BEAM CONTROL ROOM. 

H LARGE SIGN WRRNS: >> DO NOT PRESS ANY BUTTONS << ' : DRTR0. 0, 9, 0, 0, 0: DStt 12 3=* I' M 
IN ANOTHER HALLWAY. TO THE ERST IS A RE5TR00M. " : DATA15, 13, 8, 0, 8, 

240 DStt 13 J="THIS IS WHAT IS COMMONLY CALLED, THE BATHROOM. 
THERE' S GRAFFITI WRITTEN FILL OUER THE WHLL. 

PIPES LEAD UP THROUGH THE CEILING. '! DRTR15. 0. 0, 12. 27, 0: DStt 14)=*THIS APPEARS TO 
BE AN INTERROGATION ROOM. ' : DATA0. , 0. 10. 0, 0: DStt 15 >-" I' M IN A LOUNGE.* 

241 DATR0,0,I3,12,0,0:DSttl6)=*THIS IS fl COMPUTER ROOM. THERE'S R TRS-80 IN HERE 

ON THE SCREEN IT SAYS: >>CSAUE TAPE << ' : DRTR17.0, 18, 0. 0. 0: DStt 17 )»' I' M IN A TEST 
ING LABORTORY. " ■DRTAQ.B, IB, 0,0.0 

242 DStt 18)=" I'M IN A HALLWAY 

A LARGE ARROW POINTS EAST RND SAYS: >> TO THE UAULT << ' " DRTA1G, 25, 3, 13, 0, 0: DStt 1 
9)-*THIS IS THE ENTRANCE TO THE DEUELOPMENT LAB SECTION" : DHTA20, 18, 21 , 20, 22, 

243 DStt 20)=" I'M IN A LONG CORRIDOR. THERE ARE LRBORTORIES ALL AROUND ME.":DATfll 
9, 23, 21, 20, 22, 24: DStt 21)=* I'M IN A RESEARCH LAB. * : DATA20, 0. 0, 0,0, 0: DStt 22)=* I' M 
LOST':DATR22,22,22.22,22,20:OStt23)=DStt21):DRTA0,0,0.20,0,0:DStC24)=DStt21):DAT 
00,0.0,0,20,0 

244 DStt 25)-' I'M NEAR THE ENTRANCE TO THE UAULT. 

A SIGN HERE SAYS: >> RUTHERISED PERSONEL ONLY < < ' ; DATA0. 26, 0, 18, 8, 0: DStt 26 J- ' I" M 
IN THE UAULT. " :DATA0.0, 0,25, 0,0: DSf ( 27) = "I' M IN A PIPE TUNNEL WHICH LEADS IN EU 
ERY DIRECTION. * : DATA28, 27, 27, 27, 27, 13 

245 DStt 28)=»DStf 27) : DATAZ9, 29. 29, 23, 30,29: DStt 29 )=" I' M LOST IN A MR2E OF PIPES.* 
:DATA28,23,2B.29.23,27:DSt(30)»'I* M IN THE PIPE MA2E. 

BELOW ME I THINK I CAN SEE THE JAIL. ' : ORTA29, 29,28, 23, 29, 31: DStt 31 >«■ I* M IN THE 
JAIL. ':DHTA32,33,34,35,0,0 

246 DStt 32)-' I'M IN A JAIL CELL. * : DRTA0, 0, 31 , 0, , 0: DStt 33 )=DStf 32 ) : ORTA0, 0, 0, 31 , 
0,0:DStf 34)=DS»f 32):DATR31,0,0,0,0,0:DSSt3S)='I' M AT THE SECURITY DESK. 

TO THE NORTH RN ELEURTOR. " : BATA3S , 31 , 0, , 0, 0: DStt 36 )=" I' tt IN THE ELEUATOR. * : DATA 
0,0,35,0,37,0 

247 DStt 37 )=DStt 36 ) : DHTA0, 0, 14 , 0, 0, 36 

248 L0=23:DIMOBttL0):0Bttl)='A TAG WHICH SAYS: >> NEEDS TURBO << ' : DATA1 1 , 5. 0: OBt 
(2)»'ANTI-MRTTER FUEL' : DATR12.S. 5: OBtt 3 )="BLASTER" : DATA19,7,0:OBtt 4 >=-COMMUNICOT 
OR*:DATR14,9,0:OBtf5)=*A UERY SUPRISED GUARD* : DATR1S.9, 0: OBtt 6 )=*MAP OF THE SHIP 
":DATAI6.29,20 

249 OBtt7) = "SOME KEYS" : DRTR17 , 9, 0: OBtt 8 )=*H SHINESTONE NECKLACE' : DRTA18, 10, 20: OB 
tt 9)- "PRINCESS RLEAYR'S CAPE* : DATR21 , 14, 5= OBtt 10 )~'HRMBURGER" : BRTA22, 15, 0: OBtt 1 1 
)-*A CASSETTE TAPE' : DATR23, 7, 0: OBtt 12 ) = " A TURBOENCRBULATOR' : DATA24, 17, 5 

250 0Bttl3)="RN EUIL LOOKING SCIENTIST' : DATA25, 17, 0: OBtt 14 )='SECRET RTTRCK PLANS 
*:DATA26, 0,20: OBtt 15)=* BERTH RAY SCHEMATIC* : DATA27, 9, 20: OBtt 16 )-*CLOAKING DEUICE 
*:DflTA28, 17, 20: OBtt 17)* "MICRO LASER GUN* : DRTR29, Z4, 20: OBtt 18 )-* I . D. CRR0-:DRTA31 
.17,0 
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251 OB*C195=-MALIDIUM CRYSTALS CTHE TREASURY ! ) ■ :DATA32,Z6, 30:OB*C Z0 5-"fl SIGN WHI 
CH SAYS: >> OUT OF ORDER << * : DRTH33, 3, 0; OB*t 21 )=-RTTRCK ROBOT* : DRTA34 , 35, 0:OB»C 2 
2 )= ■ PR I NCE5S RLERYA ' : DATA35 , 34 , 50 : OBS t 23 ) - * AMMUN IT I ON ■ : DAT A37 ,7,0 

252 DIMDSt CL , 5 ) : RESTORE : FORZL= 1 TOCL : FORZD-0TO5 I REABDS C ZL , Zfl 5 : NEXTZD : NEXTZL 

253 DIMOBC LO, 2 ) : FORZL-1TOLO: RERDOBC ZL, J , OBC ZL, 1 5 , 08C ZL, Z 5 : NEXTZL 

254 DIMHE*CCL5:HE»( 1 )='I THINK WE'RE SUPPOSED TO LERUE THE STUFF HERE. " : HEf ( 2 )- " 
I WONDER IF WE HRUE ENOUGH FUEL?" : HE1C 7 )-"HOW ABOUT A BLRSTER. " : HEtC 9 )='TRY SHOO 
T GUARD. -:ME*( 13)-" IT MIGHT BE INTERESTING TO RERD THE GRAFFITI . ■ :HESC 17 ) = " TRY S 
HOOT SCIENTIST. * 

Z5S HEi(22 5 = *I'M AS CONFUSED RS YOU ARE. " : HE«( 23 )=HES( 22 ) :HEf ( 31 )-' IT MIGHT HELP 

IF WE HAD SOME KEYS TO OPEN RNY LOCKED DOORS. - :HE*C 35 >=- DIB YOU BRING ANYTHING 
TO EAT?":M0»-'I CAN' T GO THERE. THE DOOR IS LOCKED. *: Mi*-" I' M NOT CARRYING RNY B 
LRNK TAPE." 

25E M2S='THE TRS-BB RECORDED 50METHING OM THE TAPE, AND THEN IT PRINTED: 
>> RTTRCK PLANS — UERY SECRET <C'-M3*-*I CAN'T. I'M NOT CARRYING ANY KEYS.*:M4S 
-•O.K. THE DOOR TO THE JAIL CELL IS UNLOCKED. ": M5«=" THERE' S NO ROBOT HERE. " 

257 M6S="BUT I DON'T HAUE ANY HAMBURGERS. "1 M7»=' MUNCH. .. MUNCH BURP! 

THE PRINCESS THANKS YOU FOR A DELICIOUS MERL. " : MBS='D0E5' NT ERT HAMBURGER. ": M3»- 
"NOTHING HAPPENED. THE HAMBURGER IS COLD YOU KNOW. "! N0*=' THE ATTRCK ROBOT ERTS T 
HE HAMBURGER AND DISSAPERRS. - 

258 N1I=*I'H AT THE IDENTIFICATION TERMINAL. 

ON THE SCREEN IT SAYS: >> SHOW I.D. <<*:NZ*- - THE TRRCTOR BEAM IS OFF. ' : N3S="THE 
TRACTOR BERM IS ON. ■ ! N4S=" YOU FORGOT TO OPEN THE FLIGHT DECK DOORS.* 
253 RETURN 



- 0000000000 - 

XMA5 CARD by G.C. HODGSON L2/16K 

As you type in this program you will wish that you had ordered a cassette subscription: But 
persevere, it is well worth the effort. When you have finished, you will be treated to the most 
magnificent graphics that we at MICR0-80 have ever seen on an '80. No more need be said, the 
program says it all . 

10 REM ••« R XMAS CARD *♦* BY GORDON HODGSON * COFFS HARBOUR • 
2B REM **• INDEX -- 40-70 GRAPHICS CODE 80-270 XMAS TREE 
2B0-470 RUDOLPH 480-B70 PRANCER 

680-860 SLEIGH 870-1148 SANTR 

»** N.B. TURN UP BRIGHT CONTROL FOR BEST EFFECT *** 
30 REM <<< TO PERSONALIZE NAMES EDIT LINE 1078 >>> 
40 CLS;CLEARC1B0):DEFSTRA-X 

50 R=CHRf C 128 } : B-CHRSC 129 ) : C-CHRSC 130 5 : D-CHRK 131 ) : E=CHR*C L32 ) :F-CHR*( 133 ) ( G-CHR 
SC 135) : H=CHRS< 136 ) : I-CHRJtC 138 > : J-CHRSC 139 J : K=CHR*C 140 J : L=CHRSC 141 ) : M-CHR*( 142 ): N 
=CHR*( 143 ) : O-CHRSt 1 44 ) : P=CHR*C 145 5 : 0-CHR*( 146 ) : R=CHR*C 147 ) : S-CHRf ( 14B >: T=CHR*C 14 
9):U=CHR*( 153) 

60 U=CHR*(168):W-CHRlC170).-X-CHRS(1713:Al-CHR»C175):Bl=CHRSC176):Cl-CHRfC177).-Dl 

-CHRS(178):E1-CHRI(179}:F1=CHR*C1B0):G1-CHR*C184):H1=CHRS(186):I1=CHR*C187):J1=C 

HR*Cle8 5:Kl=CHR$<189):H=CHR*C 130 ) : Ml-CHRtJC 191 5:N1=CHR*C 173 ) :01-CHR*( 172) 

70 P1=CHR»C 168 ):Ql-CHR*t 163 5 :R1=CHR»(1B1)!S1-CHR*( 156 ):T1=CHRS( 151 ):U1-CHR*C 157) 

( Ul-CHRlt 183 ): Wl-CHRfH 174 ) : X1=CHR*( 161 ) : AA-CHR*C 1SZ 5 : BB=CHR*t 137 ) : CC-CHRSC 167 ) 

80 REM *•* XMRS TREE »»* 

30 PRINT*96.M1; 

100 PRINTf»159,UUl;0; 

110 PRTNTezi8,Ml;A;A;U;Gl;Ml;Ml;Ml;FUO;A;fl:fl;Ml; 

120 PRINT92BZ.D;A;Dl;Ml;Ml;Ml;U;D;R;B;DiBl;Bl;R: 

130 PRINTS345,K;STRINGIC7,I88>:D1;DI;B1;M1;M1;M1;N;D; 

140 PRINT940G t Ml;A;K;N;N;Ml;U;NrN;N;N:STRING*C7,1915;Ei;O;R;R:Ml; 

150 PRINT#470,Bl;BI;Bl;Jl;Jl;S;A;Ol;Ml;Sl;A;Fl;N;Ml;Ml;N;D:H;E;Bl;Jl ; jl;BI:Bl; 

160 F>RINTeS30,Ml;A;A;A,-R;D;J;N;N;N;F;A;D;BliBl:5TRIMG»C5,18B5;A;N:F;B;El;Bl; 

170 PRINT*596,J;Ml:Ml;Ml;Jl;JI;Jl;Jl;MliMl;Bl;A;D;D;D;N;N;N;N;MliMl;Ml;Ml;Ul;R;B 
;fi:A;Ml; 

188 PRINT9GSG,K;Wl;STRING*(5,191);UjNjD;DiEl;D;D;J;Ml;Ml;Ml:Jl;Jl;Jl;Jl;STRING*( 
7,176);;Jl;JI;ai;Bl; 

19B PRINT*72Z,BlsEliIl;Ml;Tl;R;Bl;Jl;N;D;N:Jl:Bl;A;J;N;N;MlTMI:Ml;Ml;D;El;D;N;N; 
D;D; 

208 PRINTi?789.D;B;A;A;D;N;Jl;N;D;R;A;JT;Jl;STRINGS(5,12B);LI;El;KlS 
218 PRINTeS64,Ml;Ml; 

228 PRINT*3Z3,D;AI;STRING*(8,1915;U;D; 

238 PRINT»989, J; STRING*C B, 191 );G; 

Z4B PRINT<»32, **- ; :PRINT*154, ■*■ ; :PRINT»1B7, ■** ; :PRINT*34Z, *•• ; :PRINT«>364 , •*■ ; :PR 

INT#466. "•■; :PRINT»S60, ■*■; 
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258 FOR2-lTO500:NEXT:pRINTei2a, 'W H fl T * S' ; : PRINT»193, *T H I S' ; :PRINT*»256, " I 
s E: E ? •::FORZ=lTOlS00:NEXT:PRINTei76, *fl X M fl S* ; :PRINT*241 , "T REE? 

*; :FORZ=lTO1000rNEXT 

260 FORY=1TO20:PRINT932,- - ; :PRINT*M54. " »• ; :PRINT»167, ■ •' : :PRINT#342, " -;:PRINT# 

364. *•*; :PRINT9466, •»• ; : PRINT§568, " * ; : F0RZ-1T025: NEXTZ 

270 PRINT*32. •*"; :PRINTS154, " ' : :PRIMT*1B7. ■ • ; : PRINTS342. *•* s :PRINT»3G4, • ";:PR 

INT&466. ' *; :PRINT*560, "*"; :F0RZ=1TQ25: NEXTZ. Y 

288 CLS: REM **» RUDOLPH **» 

290 FRINT»3S,U;R;G1;F;0;W;S; 

300 PRI NT»99 ,M1;P;P1;C;L;G;G1;E;W;FI; 

310 PRINTS 164, 01; El ;R;D;J;L;C;N;B; 

320 PRINTSZZ9,n;D;L;U;Ll;Ml;Ml;El;Ml;STRINGSCS,188); 

330 PRINT9295,P1;5TRINGSCG,191 >; U; N; D; D; B; 

340 PRINTS34 1 , PI ; STRINGSC 17, 128 ) ;C; fit ; STRINGSC S, 191 ) ; Rl : 

350 PRINT»405 T HI ; Kl ;0; STRINGSC 15, 128 );0; HI: STRINGSC 6, 191 ):K1;0; 

360 PRINTS470, D;CI ;J1 ; STRINGSC 9, 191 5 ;G;P;G; CI; LI: STRINGSC 10, 191)1 

370 PRINT9534, STRINGSC 10, 18B ) ; SI : fl; Fl ; Rs B; El ; El ; El; 01 ; EI i D; 0; El i R; D; D; B; 

380 PRINT<&598 ( J;STRIMGSC7,191);Tl;P;E;Cl;R;K;fl;Mi;m;Ml;Bl;CliGl;Bl;Dl;Bl;Ml; ;G: 

B; 

350 PRINTe6S9,BU Jl ;J1; Jl ; STRINGSC 5, 191 ) : N; Hi Ei K; N; Ms E{ N; E; J; fll i Ml : Ml ;U; N; □; D; El 

;Gl;Ji;Bl; 

400 PRINT®723,ttl;U;B:U; Jl; J1;J1;K; STRINGSC 11, 128); W; Ml ;U: STRINGSC 5, 12B ) ; D; D; N; HI 

;K1: 

410 PRINT<»787,fll;Kl;A;I;Ml;Tl;STRINGSC13,lZB);Ll;Ml;B;STRINGJCa,12B);W;Ml; 

428 PRINTeBSl.W;Ml;P.;fiiRljT;STRINGStlZ,lZSJ;U;l11;F:STRING»(9.1Za)!HljU; 

430 PRINT$914,I ;G;fl:R;R; I; Ml; STRINGSC 11, 128 );<J; LI ; Tl ; STRINGSC 9, 128 );D;D; 

440 PRINT9984, I : L: STRINGSC 18, 128 ) ;C; N; E; 

450 FORZ=1TO100:NEXT:PRINT*0, ". , . fl N D* ; : PRINTi?64 , "H ERE' S* ; :PRINT#128, -R U 
D L P H . . . ■;:FORZ=1TO1500--NEXT:PRINT*192, •. . . THE • ; : PRINT#Z56, 'R E D - N 

SCD'; :PRINT#320, "REINDEER... - ; 

468 FORZ-ITO30:PRIHTSZ43, "**S :PRIMT934I .5; :PRINT*404 , I; Ml ; F1;A: :PRINT*340. fl; fl; -P 

RINT*404, J;K1;F1; : PRINT934B,fl; :PRINT*403.C; MS Jl i 81 ; : PRINT£339, fl;H: : PRINTS403, D; : 

FORY-1TO20:NEXTY 

470 PRINT9339,ft;R; -*PRINT9403,C;N; J1;BI; :PRINT#340,fl:fl; : PRINT«403, fl; J; Kl ; Fl; :PRIN 

TS340,fl;5; :PRINT*404, I; Ml :Fl;fl; : PRINT#341 , PI ; : PRINT&404 , fl; Rl ; Kl ;0; : PRINT3243, * * 

; : FORY-1 T028 1 MEXTY : NEXTZ 

488 REM »»• PRflNCER »*» 

450 CLS:PRINTe200, "H ERE COMES , . ■ : ."FOR2-1TO500: NEXT:PRINT*»330, "P R 

fl N C E R MM*; 

500 PRINT94S,K;Jl;Gl;Jl;fl;Pl;Sl; 

510 PRINT9114, I;Ml;fl;Gl;S;0;Gl;E; 

5Z0 PRINT9179, J;M1;M1; jRl; J;M1;F1; 

530 PRINT9243,fll;fl;C;D;L;Fl;Q;Ml;F; 

540 PRINT@307,C;D;N;N;E;D1;C1;P; 

550 PRINT9370, Bl ; Bl ; Jl ; Jl ; STRINGSC G, 191 ) ; Jt ; Bl ; Bl ; 

588 PRINT*M29,B1;G1: J1;STRING$( 6,191 );N;N;D;D; D:Df 

570 PRINTe471,Bl;Bl;Bl;fl;R;fl:V;Bl;0;R;U;Bl:Bl;Bl;Jl;Jl; Jl;Ml;Ml;fl;Hl;STRiNGSC6, 1 

91);U:N;D; 

580 PRINT£53i,D;D;N;N;N;G;D;H;M;N;N;G:V; LI; STRINGSC 7, 191 );UiB;H;N:N; N;D;E1;C1 : Jl 

I 

590 PRINTe601. W; Ml ; MI : Ml ; T; fl; fll; STRINGSC 7, 191 );G;fl;Gl; STRINGSC 10, 191); 51; 

689 PRINT*»656,B1;GI;5TRINGSC5, 18B ); fl; PI ; STRINGSC 5, 191 ): B1;C:D;N;N;B; D;R;P1; J1;MI 
;Ml;Ml;U;G;D:D;D;Fl;ll;N;D; 

B18 PRlNTe709.Bl;Sl;U;Bl;Bl;Bl; Jl;Sl;M;N;D;D;fl;D;Ql;Cl:Bl;Bl; J1;5TRINGSC5,191);S 

TRINGSCS,143);G;I;G;H;N;D;Q1;R:B1;B1;B1;BI;S1:CHRSC1G7);C1; 

E28 PRINTe772,D;D;R;D;D;B;STRINGSC8,lZ8);Gl;Ml;Ml;N;N;N;N:D:D;D;STRINGSCIZ,128); 

I;F;D;B;A;U;G1;G; 

630 PRINT#847, Bl ; Ji;N: D; STRINGSC 23, 128 ) ; Ml ; I ; N; D; 

640 PRINT9903 , U; Bl ; ; fl; Bl ; Jl ; Jl ; N ; D; 

658 PRINT»988,D;D;B;R;D;D; 

660 PRINT*444,CHRSC38); 

878 FORZ-1TO3000:NEXT 

680 CLS: REM «** SLEIGH *•» 

690 PRINTiS3,U;Bl;0; 

780 PRINT963, Jl ; Bl ; STRINGSC 20, 128 ) ; STRINGSC 7, 176 ); 

710 PRINT9132,Hl;G;Ql;El;El;El;Bl;Bl;5TRINGtC5,128);Jl;m;Ml;Jl;R;D;D;D;D:N;fll;M 

l;Ml;G;Ei;Gi; Jl; Jl;G:El ;E1;X1; 

720 PRINTi»193,Bl;0;fl;fl; J1;M1;N; N; Ml; N; Ql: El; CI; Bl;Q;fl;fl; D:D;B; STRINGSC 7,128 );D;X 

liLl;U;D;Cl;Jl;0;fl;V;Q; 

730 PRINT*257,n;Xl;Gl:Fl;R;R;Bl;Jl;Jl;Bl;Ml;Ml;Ml:Ml;U;L;K;STRINGSC9,lZ8);Pl;Kl; 

B1;E1;G1;M1; Jl ;fl;K;M;B;Rfl;BB;E; 

740 PRINT3321. C ; N; Ml ; Ml ;N: L;E;D; STRINGSC 5, 143 );G;R;N;N; STRINGSC 5, 128) ;J1;M1; Ml ;K 

1 : 5; X; STRINGSC 9, 191 ) ; C; Gl; G; fl; Bl ; Bl ; O; ; Pis Jl i Fl ; fl; R; Bl ; Bl ; fl; Bl ; V; 0; Bl ; O; O; Bl : U: 

;Bl; 
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758 PRINT*3B4,P1; Jl; Jl ; Jl ; M1;M1 ; 5TRINGSC 10, 143 ) ; Ml ;M1; Jl ; Bl; A; J; Fl ; C; Rl ;M1 ; Ml ;K1 

;Fl;Q;El;Ml;Ml;Ml;Ml;U;G;B;M;N;A;H;N;N;Kl;G;fil;Ml;T;I;El;K;r1I;K;Gs 

7B0 PRINT£451,P1;STRINGSC12,1B8>;B1;A;D;N;M1;K1;C;J;Q1;D1; J;N;MlsKl ;STRINGSt 7, IB 

8>;U;D;Gl;Ml;MI;Ml;F;Bl;Bl;8l:A;K;ni 

770 PRINT#51G,STRINGSC5,143 3;STRINGS( IB, 131 ) ;A; C; Hi; Kl ; O; fi; Ql ; El ; CI ; Gl ; Jl; Jl ; Hi; 

STRINGS* 5, 131);A;R1;M1;M1;U;B;W1;M1;M1;N;N;B;STRINGS(9, 128);B1; Jl; Jl; J1;B1; 

780 PRINTessa.fll; STRINGS* 15, 131 ) ; Ki ;R; X; Ml ; Bl ;fl; Q; Gl ;EI ; Bl ; Jl; Jl; Jl; Mi; Ml; Ml; Ml; 

J1;J1;B1;B1; Jl; Jl;Q;fl;Bl ; Jl; Jl;Bl;STRINGSCe, 128>;M1;M1;D;X;M1 ;M1 : 

730 PRIMT«64S,X;STRING*( 15,131 );Kl;OfC;fil; Jl;Bl;fl; J;STRINGS(7. 131 );fli;Mi;Ml;Ml;N 

;N5N;N;R:M1;M1;N;Q1;C1; Jl;E:ft:Bl;Jl;FI;M;Ml;T: 

800 PRINT*710,A1;STRINGS(1G,191); J1;B1;C; J;A1: J1;B1;E1;D;N;N;N;N;R;Q1:B1; Jl; Jl; J 

l;Ml:Ml;T;A;01;Ll;U;G;Cl;Ll;Ml.-N;B;A;W;Mi;T; 

810 PRINTe775 1 C;N;Al;STRINGSCiE,191):Jl;JI;Bl;BI;El;D;N;K;K;K;A;I;N;N;D;El;El;El 

;C1;A;A;A;A;C:D;D;D;B;R;G1;M1;M1; 

B20 PRlNT§i843.C; STRINGS! 5. 131 3 ; STRINGS* 20, I43 3;fl; J;M1;N;N;E1: ;E1 ; Jl; Fl ; Bl; 0;R; fl; 

fi;fi;Bl; J1;M1;M1;D; 

B30 PRINTe90a,K;K;K;STRINGSC17,128 3;KiK;K:fi;A;fl;fl;;I;Ml;Ml;D;N;N;G;D;El;Bl;Jl;Ml 

;M1;N;D; 

840 PRINTe966, STRINGS* 6. 1811; STRINGS* 32. 18B 3; Li; Ml ;N;N;N;D;D; 

650 PRINTe22B, "•"; 

860 FORZ=lTOZ00:NEXT:PRINTeil, ". . . AND SRNTR ON HIS SLEIGH >!...*;: FORZ=1TO4080: 

NEXT: PR INT* 103, "THAT* S RIGHT '. ( ! • ; : FORZ-lTQ508:NEXT:PRINTei73, STRINGS* 1G, '*' it :P 

RINT#237, "IT' S XMAS TIME > M • ; .-RRINT*301 , STRINGS* 16, '» ■ ) ; :FORZ-1TO4000:NEXT 

870 CLS: REM **• SRNTR *•• 

B80 PRINTe27,Bl;Bl;fl;Bl;Bl;A;A;R;fi;0l;Jl:Jl; Jl; J1;F1;H1; Bl; B1;B1; 

830 PRINTeea.BUBI^BllJ^JljSTRINGSO.iai); Jl; Jl; Bl ; C: D;N; STRINGlt 7, 131 ) ; K1;F1 

I 

900 PRINT9143.U; Jl; Jl ; STRINGS* 20, 131 >; Jl ;0; R;Xi STRINGS* 6, 191 3; T; 

310 PRINTe287, LI; STRINGS* 5, 191 3;N; N; B; D; O; B; El ; El ; D; El; EI ; D; Di N; STRINGSC5, 131 3 ; 5 

;W;STRINGS*S,1813;T; 

920 FRINT*271.I:AI;Mi;U;n;Gl:Ll;0;I; Jl ; J1;M1;M1;U;B;C;N;N;N;K1;B1 ; J;MI;M1 :G;*J; Bl 

;0;N;N;fll;Ml;T; 

930 PRINT*337,D;V;L1;M1;M1;B;R;G1; Jl; Jl; 0:fi;fl;fl;Gl; Jl;Fl;R; Al:Kl;Dl;R;R; J;N;B; r; 

L;fl; J;K1;0;R;R;U;B1;0; 

940 PRINT»393,J;K;M;(11;ni;Hl;N;F;R;R;fl;fl:R;Bl;BI;0:fl;R;fl;ft;C;D:N:Ml;Fl;El;D;H;Fl 

; H: Jl ; fl ; R ; fl ; Gl ; Ml ; MI ; Ml ; M 1 ; Jl ; ; 

950 PRlNTe45B,Gl;Ll;P;fl;fl;R;K;K;N;D:U;Jl;fl;fl;D;EI;Cl;Jl;E;Bi0iiFl;El;R;B;U;Jl;Bl 

:A;N;D;D;fl:W;F;Hl;Ml;B;fl;C;fll;Mi;N;Rl;G; 

9G0 PRINTi?521,I;Ml:Mi;Ml;JI;JI; Jl ; J1;M1;M1 ;B1; J;N;M1 ;M1;M1 ;UsD:fl;K;K;E;C; J;N:R1; 

N1;U;F;G1;M1;M1;M1;F1;Q;I;G;B; 

370 PRINT95B5.N1; STRINGS* 11,131 3 ; STRINGS* 5, 1B8 3 : LI ; STRINGS* 5, 131 3 ; Ki ; Jl; Jl '. Jl ; Jl 

;L1:STRINGS*S,1913;U; 

3B0 PRINTSGS0, J;A1 '. ; STRINGSC31 , 191 3 ; 0; 

330 PRINTe716,U;Il;STRINGS(30,lSl 3; 

1000 PRINT#781,C;D(J;N;N;N:N;D;D;fl;Hl;STRING*C28,131);F; 

1018 PRINT98S1 , Bl ; Jl : Jl ; STRINGS* 12, 191 ) ;R1 J STRINGS* G, 191 3 ; N: D; 

1020 PRINTS914,0:N;STRING»t II , 191 ) ; N;N;fl;C; 0; D; A; O; B; 

1030 PRINT9983,STRINGS(6,1313; 

1.J4R PRINT*23, '•"! !pRINT*34, •»* ; :PRINT<*35, '*■ ; : PRINT?! 13, ' *" ; IPHIHT93B3, ' * " f i Pfl I 

NT9489, '*•; :PRINT#41G, ■*•; 

1058 PRINT*1, STRINGS* 9. '«■ >;: PRINTtlSS. STRINGS* 3, "*' 3; : PRINT»G5. * ** ; :PRINT91Z3, • 

**; :PRINT*73, -*• ; :PRINT0137, "«- ; 

I860 PR1NTSG7, "MERRY* ;: PRINTS132, -XMAS"; : PRINT#770. 'HAPPY' ; :FRINT®834, "NEW ; : PRI 

NTSB38, "YEAR'; 

1070 PRINTS>G23, 'TO ♦ RLL' ; : PRINT9G92, ■ * OUR' ; : PRINT@75S, ■* READERS - ;: PRINT@B20 

, "* EVERYWHERE-; 

1BS0 PRrNTS7G8, ■•"! :PRINT*77G, "•' ; :PRINT9832, "*"; :PRINTg940, '•*; :PRINT&83e, "«' ; : 

PRINT9304, "•' ; 

1090 FOR2-lTOI00:PRIHT(a409, * ' ; :PRINT#41G, * * ; : PRINTS29, ' ■ ; : PRINT#34, ' ";:PRINT 

*35,- *;:PRTNT»113, * ' ; : PRINT9369 . ' ' ; :PRINT#1 . STRINGS* 9, • ' 3 ;: PRINTS193, STRINGS 

C9,' * 1; :PRINT#GS. ' ■ ; : PRINTi?129, " * ; :PRINT#73, - '; :PRINTei37, ' '; 

1100 PRINTS7E8, ■ *;:PRINT*»776, * * ; :PRINT*83Z, " " ; :PRINT*840, ' * J :PR1NT«B9G, * ";; 

PRINT*»904,' ■; 

1110 SETtS5.2S):SET(Gl,2S3:PRINT«409, "•'! s PRINTS IB, ■*■ ; : PRINT9Z9, ■ • ' ; : PRINTS34, 

-•■; :PRIMT*3S, *#"; :PRINT®113, '*•; :PRINT»369, •*'; : PRINT91 , STRINGSC 3, "«" ); :PRINTg»l 

93,STRINGS{9, *•" ); :PRINTe>65, ■*■; :PRINT»129, ■«"; :F0RY=1T0S 

1120 PRINT973, ■•-; :PRINT9137, "*■; :PRINT§768, ■*"; :PRINTC*77B, ■•* ; :PRINT9832, "*';:P 

RINTS840, ■#■; :PRINT9B3B, **■ ; :PRINT»904, '**; : RESET( 55, 25 J : RESETC Gl , 25 ) 

1130 NEXTY.Z 

1140 GOTO1140 

- oooooooooo - 
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KEYBOARD BLEEPER, KEY DEBOUNCER AND ALARM by C.E.KENDALL L11/4K 

This program can be used to give an audible bleep on each keystroke, it also provides key debounce. 

To hear the bleep, connect an audio amplifier and speaker to the lead which normaly goes to the 
"AUK" socket on the cassette recorder. 

^EDITORS NOTE: I have discovered that if you remove the "EARPHONE" plug, take the lead which 
normally goes to the "AUX" socket and plug it in to the socket marked "MIC" (remove the tape if 
present), press the PLAY key and turn up the volume, the sound will come through the cassette 
recorder's speaker. This also works for both the previously published sound programs. It works on 
a CTR-80, 1 don't know if it will work on other recorders, (try it). 

The machine language part of the program is POKEd into an apparently unused part of RAM in Level II 

BASIC, so you do not need to set any memory size and your keyboard will still bleep even after you 

have typed "NEW" and got rid of the BASIC part of the program, (you have to run it first of 

course. ) 

It gives a high-pitched bleep for the normal characater keys and a lower pitched bleep for "ENTER", 

"SPACE", "BREAK" and the arrows. Two subroutines in the program give examples of other uses for the 

program. 

The keyboard debounce routine is also POKEd into the same area of memory and will also remain in 

action after "NEW" Is typed. 

(Note: this program is written specifically for the TRS-80. Perhaps one of our readers who owns a 

SYSTEM 80/VIDEO GENIE will modify it to use cassette port #-2. We would be happy to publish an 
amended version. - ED.) 

10 FDR J=16435 TO 16437: READ I: POKE J, I: NEXT 

20 FOR J=1G4G0 TO 16513: REfiD I: POKE J, I: NEXT 

30 POKE 16405,0 

40 DATA 195,36,64,205,227,3, .183,200,8,14,20.63,62,1,211,255.16,254,68.62,2,211,2 

SB, 16,254, 13,32,233,8,201,205, 127,10,205,101,64,201 

50 'THE DURATION OF THE NOTE IS SET BY THE 30 IN LINE 40. 

IF IT IS MADE TOO LARGE, THE KEYBOARD ACTION WILL BE 

TOO SLOW. 
1S3 ' SAMPLE LINE TO CALL ALARM SUBROUTINE 
200 INPUT X: FOR Q=B TO 1000: NEXT: GOSUB 2000: GOTO 200 

999 ' USE THIS SUBROUTINE TO CALL fl SERIES OF ' BLEEPS FROM 

ft PROGRAM. TO UfiRY THE PITCH, OARY X BETWEEN 32 AND 
127. Z CONTROLS THE INTERUftL BETWEEN BLEEPS. 

1000 POKE 16526,123: POKE 18527,64= X=X*25G: FOR N=0 TO 10: AHJSRt X ) ! FOR Z=0 TO 
100: NEXT Z,N: RETURN 

139S J SUBROUTINE TO SOUND ALARM UNTIL ANY KEY IS PRESSED. 

2000 P0KE1G526, 123: P0KE15527, 64: X=X*256 

Z010 FORZ=0TO20:NEXT:R=USR(XJ:flS=INKEY*:IFfi»="THEN2010E]_SE200 

2020 RETURN 

- oooooooooo - 

THE CASE OF THE DEAD CURSOR, 
by E. R. Paay 

Looked at your cursor lately ? Does'nt look very exiting does it? Very hard to find in certain 
listings and screen displays. What we need is a flashing cursor like some of the bigger machines 
have. Many BASIC programmers realize this and create a flashing cursor in their programs using 
INKEY$ statements in loops, which then have to be used for all input from the keyboard. BASIC 
being what it is, this means slow keyboard response and large amounts of BASIC memory are wasted. 
It was for these reasons that I wrote a flashing cursor program in machine language, some time ago. 
The program is very simple but we will discuss several features of it for interest's sake. 

First of all, there is the initialization sequence. This sets memory size without you having to 
answer MEMORY SIZE? or READY?. Many readers have asked how this can be done, so I will now 
explain. The sequence runs from line 290 to 340. The HL register pair should contain the required 
memory size. Disk BASIC users can of course use location 4049H for TOPMEM instead of 40B1H and 
drop lines 300 to 340 incl... Location 40B1H is the top of memory pointer for BASIC and 40AOH 
labeled SP0INT in the listing is the string space pointer. BASIC uses this to point to space where 
it can operate on strings, when string type commands are used. 

The main routine intercepts the keyboard and maintains a counter. The counter is decremented every 
time the keyboard is scanned by BASIC, which is done at regular intervals. As soon as this counter 
reaches zero the count is reset and the cursor is turned off if on and turned on if it Is off. If 
a character comes from the keyboard the counter is reset anyway and a flag is set, causing the 
normal BASIC cursor to be overwritten imediately by our new cursor when the keyboard is next 
scanned. The position of the cursor is maintained by the interpreter at two bytes located at 4020H 
and 4021H, this location I labelled CURL0C (CURsor LOCation). 
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The source listing provided is for a 16K machine. All that is required for machines with different 
memory capacities is to change the ORG statement in line 70. Beginner Assembly language 
programmers might like to have a close look at the source listing which I feel (even if I say so 
myself) is a good example of what a good professional assembly language program should look like. 
All addresses have meaningful labels (to me anyway). The use of numeric unlabel led addresses and 
numbers has been kept to a minimum. A program written this way should not need many remarks as the 
labels should tell what is being done. 

The second program presented is a demo program in BASIC (yes I do occasionally write BASIC 
programs). It allows the user to change the blink rate and use any character for a cursor. The 
current values for cursor and delay count used, are displayed and the user is prompted for new 
values, this allows experimentation with different cursors and flash rates. On a level II machine 
when a flash rate of 32 is used the cursor will be somewhat like the Electric Pencil cursor and 
appear to be transparent. Some of the lines in the BASIC listing given appear not to have any line 
numbers in front of them. In fact, these lines are part of the line(s) above them. I use the 
down arrow key (CTRL for SYSTEM-80) to start new statements on the next line. This makes it easy 
to read the program when it is listed on the video display and avoids the cluttered, unreadable 
type of program listing you get when multi statement lines are typed in to full capacity using no 
spaces. It only adds one byte to the program so is very economical (except of paper! - Ed,) 

The machine language program may be entered via an Editor/Assembler, in which case you should 
ignore the first two columns which contain the object code. Having typed in the information from 
column 3 on you then set the ORiGin to the position you require, Assemble the source code and punch 
out the object code to cassette or disk. Alternatively, you could enter the object code directly 
using a monitor. BMON would not be satisfactory for this purpose, however, because the two 
programs reside at the same memory location. The answer is to attach a block move routine to the 
program, as described in the September issue or to use Tandy's TBUG to enter the program. 

Entering the BASIC program is, of course, quite straightforward but it should be realised that this 
program is intended to work in conjunction with the machine language program and they must both be 
in the computer at the same time. 







00010 


; CURSOR DRIUER 


By E. R. Pan 






00020 


• 










00030 


I 


25-10 


-1380. 






00040 


« 










00050 


; Copyright tG) MICRO-80 






080B0 


1 






7FR0 




00070 

00080 


i 


ORG 


7FA0H 






00030 


; Def in 


b 1 abe 1 s 








00100 


i 






0BCC 




00110 


BRSRDY 


EQU 


0GCCH 


03E3 




00120 


K8SCRN 


EQU 


03E3H 


401S 




00130 


KBUEC 


EOU 


4016H 


4020 




00140 


CURLOC 


EQU 


4020H 


48B1 




00150 


TOPMEM 


EQU 


40B1H 


B0BC 




00160 


CURSOR 


EQU 


00BCH 


0020 




00170 


CURSOF 


EQU 


00Z0H 


0230 




00180 


MRXCNT 


EQU 


0230H 


40R0 




00130 


SPOINT 


EQU 


40R0H 


1BGE 




00200 

00210 


SETPTR 


EQU 


1BGEH 






00220 


; In it to 1 ize . 








00230 


! 






7FR0 


F3 


00240 


INIT 


DI 




7FFU 


21BB7F 


00250 




LD 


HL, STRRT 


7FR4 


221G40 


00260 




LD 


C KBUEC) t HL 


7FR7 


2B 


00270 




DEC 


HL 


7FRB 


ZB 


00280 




DEC 


HL 


7FFI9 


ZZB140 


00230 




LD 


< TOPMEM ),HL 


7FAC 


113200 


00308 




LD 


DE.32H 


7FFIF 


B7 


00310 




OR 


ft 


7FB0 


ED52 


00320 




SBC 


HL.DE 


7FB2 


22R040 


00330 




LD 


C SPOINT ),HL 


7FBS 


CD6E1B 


00340 




CALL 


SETPTR 


7FBB 


C3CC06 


00350 
00380 


P 


JP 


BRSRDY 






00370 


; Mo in 


rout inc. 








003B0 


■ 






7FBB 


3RFF7F 


003S0 


START 


LD 


ft, (FLAG) 


7FBE 


BT 


00400 




OR 


R 


7FBF 


2004 


00410 




JR 


NZ.CONT 



Sreset kbuector 



[set memory s ize 



; sat string pointer 

; sat all other pointers 

; jump to basic ready mode 
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7FC1 D3 


00428 




EXX 




7FCZ CDDE7F 


00430 




CALL 


SETCUR 


7FCS CDE383 


00440 


CONT 


CRLL 


KBSCflN 


7FC8 D3 


00450 




EXX 




7FC9 B7 


00460 




OR 


fl 


7FCR 2023 


08478 




JR 


NZ.RESCNT 


7FCC 2AFD7F 


00480 




LD 


HL, (COUNT) 


7FCF 7C 


00490 




LD 


fi.H 


7FD8 B5 


88500 




OR 


L 


7FD1 3E80 


00510 




LD 


fl,0 


7FD3 2806 


80520 




JR 


2 .SETCUR 


7FD5 2B 


08938 




DEC 


HL 


7F0G 22F07F 


00540 




LD 


< COUNT ),HL 


7FDS D3 


08558 




EXX 




7FDR C3 


08660 
00570 


1 


RET 






00SB8 


; Th i s 


sect ton 


f 1 ashes cursor 




00590 


9 






7FD8 2R2040 


08600 


SETCUR 


LD 


HL , ( CURLOC > 


7FDF 7E 


00B10 




LD 


A,(HL) 


7FDF FE20 


00620 




CP 


CURSOF 


7FE1 3E20 


00530 




LD 


Ft. CURSOF 


7FE3 2085 


00640 




JR 


NZ, RESCUR 


7FE5 3EBC 


08650 




LD 


fl, CURSOR 


7FE7 32FF7F 


88660 




LD 


(FLflGI.A 


7FEB 77 


00570 


RESCUR 


LD 


( HL ) , fl 


7FEB OF 


88580 




XOR 


Fl 


7FEC F5 


00638 




PUSH 


AF 


7FED 1805 


00700 




JR 


FIXCNT 




00718 


i 








00720 


: This 


sect ion 


initial izes ds 




08730 


T 






7FEF F5 


08748 


RE5CNT 


PUSH 


AF 


7FF0 RF 


00750 




XOR 


A 


7FF1 32FF7F 


007E0 




LD 


(FLAG),fl 


7FF4 213002 


00770 


FIXCNT 


LB 


HL.MflXCNT 


7FF7 22FD7F 


08788 




LD 


(COUNT J, HL 


7FFR Fl 


08798 




POP 


AF 


7FFB D9 


00800 




EXX 




7FFC C9 


00810 




RET 




7FFD 0000 


00820 


COUNT 


DEFW 





7FFF 00 


00830 


FLAG 


DEFB 





7FR0 


00840 




END 


INIT 


00000 TOTAL 


ERRORS 








10 ' ******#•♦*••»*••*»***»«»#**•*•♦*«•••*••*•*•*** 
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^suppress normal cursor 
; scon keyboard 



rcheck countor 



;docrentant counter 



;get cursor location 

; cursor on? 

;yes! then turn it of-f 
;na! then turn it on 



; del ay cauntar 



20 

30 

40 



** TRS - B0 CURSOR DRIUER DEMO ** 

M BY r EDWIN R. PRAY •• 

*« (C) 25 - OCT - 1980 «• 



CLS: 

PRINT- 
INPUT ' 



CURRENT CURSOR CHAR. - ' ; PEEK (32742);' 
CURRENT DELAY COUNT - ' ; PEEK (32757) + CPEEK (32798) * 2SS ) : 



ENTER ASCII CODE FOR CURSOR (DEC) 
■ ; CURSR 
45 IF CURSR > 255 

THEN GOTO 48 
ELSE INPUT' 



ENTER FLASH RATE (MAX - G5535) 
' ; RATE 

58 IF RATE > 65535 

THEN PRINT # 3B4, ' " ! 
GOTO 45 
ELSE IF RATE > 32767 THEN RATE - NOT (65535 - RATE) 
68 POKE 32742, CURSR: 

POKE 32757, RATE AND 255: 
POKE 327SB, (RATE • 256) AND 2S5 
70 GOTO 48 
88 END 
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***** NEXT MONTH'S ISSUE ***** 

Next month's issue will contain at least the following programs plus the usual features, articles, 

news, letters, etc.. In addition, there will be a comprehensive index of all material published in 
the first 12 issues of MICRO-80. 



** ALPHABETICAL LISTING - LI ** 
Once you have this program, your telephone 
index will be obsolete - well, you'll have 
more fun looking for a phone number, at least. 



** MUGWUMP - LI ** 

This is a "find that animal" game played 



10 x 10 board. Find the four 
before your 10 guesses are up. 



hidden 



on a 
mugwumps 



** PINBALL MACHINE - L2 ** 
This is one pinball machine that you can't 
tilt! If only you could find a way to charge 
20c for 5 shots, this program would make your 
fortune. 



** BOMBING RAID - L2 ** 

Bloodthirsty lot, aren't we? This is a Level 
II bombing game . Just so you Level Hers 
won't feel left out of all this warmongering. 



traveller or 

should ring 

on the other 

love hearing 

This program 



** WORLD TIME - L2 ** 

Just the shot for the world 

trader. Ever wondered when you 

those friends/relations who live 

side of the world? They will 

from you but not at 4.30 am! 

will solve all that. All you need to know is 

your own time and whether or not you are on 

daylight saving time and away it goes. You 

would be hard put to it to find a country 

which is not catered for by this program. 



** 741 ACTIVE FILTER - L2 ** 
If you ever have occasion to design an active 
filter then this is the program for you. All 
you need do is define whether you want a 
high-pass or low-pass filter, the corner 
frequency and the computer does the rest. It 
designs the filter and then draws the circuit 
on the screen, complete with component values. 
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***** CASSETTE EDITION INDEX ***** 
The cassette edition of MICRO-80 contains all the software listed each month, on cassette. All 
cassette subscribers need do is CLOAD and RUN the programs. Level II programs are recorded on 
Side 1 of the cassette and LEVEL I programs on Side 2. All programs are recorded twice in 
succession. There is one exception this month. There are so many programs in this issue that the 
second dump of XMAS CARD has been recorded at the beginning of Side 2. This means that Level ! 
users should run the tape past XMAS CARD before attempting to CLOAD the programs. Level I programs 
are not suitable for SYSTEM 80/VIDEO GENIE computers 



** SIDE 1 ** 
DRAW II 

DRAW II INSTRUCTIONS 

STRING EDITOR 

MIGHTY MORMAR 

XMAS CARD 

KEYBOARD BLEEPER 

CURSOR 

CURSOR DEMO. 



L2/4K 
L2/4K 
L2/4K 
L2/16K 
L2/16K 
L2/4K 
L2/16K m/1 
L2/16K BASIC 



I.D. 

D 

I 



APPROX. START POSITION 
CTR-41 CTR-80 SYS 80 



CURSOR [SYSTEM) 



7 
29 


5 
20 


3 

14 


52 
78 


35 
53 


24 
37 


105 
122 


71 
83 


50 
58 


140 
233 


95 
158 


66 
110 


317 
SEE 


215 
SIDE 2 OF 


150 

TAPE 


368 
377 


250 
256 


175 
179 


387 
391 


263 
266 


184 
186 


396 
403 


269 
274 


188 
191 



** SIDE 2 ** 

XMAS CARD 
FIGHTER SQUADRON 

FOOD REQUIREMENTS 

SNAKE 



L2/16K 

L1/4K 

L1/4K 
L1/4K 



37 



25 



118 
186 


80 
126 


258 
309 


175 

210 


360 
383 


245 
260 
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A SPECIAL OFFER! 



TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS, 
HARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES!!! 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 



2. 
3. 



ATTEND TO YOUR ORDER WITHIN 7 DAYS 
SUPPLY GOODS SELECTED FREIGHT FREE ! 
SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* subject to availability 




^4r 



to CONQUEST ELECTRONICS pty. Ltd. 
212 Katoomba St. KATOOMBA 2780 



Please supply — 

QTY . CAT NO DESC. 



ADV. PRICE 




SUB TOTAL 
LESS 10* 
FIND CHEQUE FOR TOTAL 



SEND FREIGHT FREE TO 

NAME 

ADDRESS ,., 



..P/Code. 



CONOU&T ELtCmONHS 



PTY. LTD. 



212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 



MICRO-80 




LEVEL II RO 
REFERENCE MANUAL 

by Edwin Paay 

Published by MICRO-80 PRODUCTS 

Written by Eddy Paay, the LEVEL II ,10M REFERENCE MANUAL is the most 
complete explanation of the Level II BASIC interpreter ever published. 

Part 1 lists all the useful and usable ROM routines, describes their functions 
explains how to use them in your own machine language programs and notes the 
effect of each on the various Z 80 registers. 

Part 1 also details the contents of sys r em RAM and shows you how to intercept 
BASIC loutines as they pass through system RAM. With this knowledge, you can 
add your own commands to BASIC for instance, or position BASIC programs in 
high memory — the only restriction is your own imagination! 

Part 2 gives detailed explanations of the processes used for arithmetical 
calculations, logical operations, data movements, etc. It also describes the various 
formats used for BASIC, SYSTEM and EDITOR/ASSEMBLER tapes. Each section 
is illustrated by sample programs which show you how you can use the ROM 
routines to speed up your machine language programs and reduce the amount of 
code you need to write. 

The LEVEL II ROM REFERENCE MANUAL is intended to be used by machine 
language programmers. It assumes a i.asic understanding of the Z 80 instruction 
set and some experience of Assembly Language programming. But BASIC 
programmers too will benefit from reading it. They will gain a much better insight 
into the functioning of the interpreter which should help them to write faster, more 
concise BASIC programs. 
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